* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/frambgrowth.Rcheck’ * using R Under development (unstable) (2022-04-26 r82260) * using platform: x86_64-pc-linux-gnu (64-bit) * using session charset: UTF-8 * using option ‘--no-stop-on-test-error’ * checking for file ‘frambgrowth/DESCRIPTION’ ... OK * this is package ‘frambgrowth’ version ‘0.1.0’ * checking package namespace information ... OK * checking package dependencies ... OK * checking if this is a source package ... OK * checking if there is a namespace ... OK * checking for executable files ... OK * checking for hidden files and directories ... OK * checking for portable file names ... OK * checking for sufficient/correct file permissions ... OK * checking whether package ‘frambgrowth’ can be installed ... OK * checking package directory ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... OK * checking for left-over files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking R files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... OK * checking whether the package can be loaded with stated dependencies ... OK * checking whether the package can be unloaded cleanly ... OK * checking whether the namespace can be loaded with stated dependencies ... OK * checking whether the namespace can be unloaded cleanly ... OK * checking loading without being on the library search path ... OK * checking use of S3 registration ... OK * checking dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... [5s/14s] OK * checking Rd files ... OK * checking Rd metadata ... OK * checking Rd line widths ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking Rd contents ... OK * checking for unstated dependencies in examples ... OK * checking LazyData ... NOTE 'LazyData' is specified without a 'data' directory * checking examples ... ERROR Running examples in ‘frambgrowth-Ex.R’ failed The error most likely occurred in: > ### Name: Framboids_growth > ### Title: Generate size distribution of framboidal pyrite based on > ### different growth mechanisms > ### Aliases: Framboids_growth > > ### ** Examples > > ## Size dependent and surface-controlled growth of 1000 framboids adding nanocrystals > ## until the mean of the diameters of framboids was 15 micrometers. > library(frambgrowth) > Framboids<-Framboids_growth(100,Initialization=TRUE, Simulation=1, + Iterations=1000, MaxMeanDiameter=15) > ## Size dependent and surface-controlled growth of 1000 framboids adding nanocrystals > ## until the mean of the diameters of framboids was 10 micrometers, > ## followed by size dependent and supply-controlled growth until the mean was 15 micrometers. > Framboids<-Framboids_growth(100,Initialization=TRUE, Simulation=1, + Iterations=1000, MaxMeanDiameter=10) > Framboids<-Framboids_growth(100,Initialization=FALSE, Simulation=5, framboids=Framboids, + Iterations=1000, MaxMeanDiameter=15) ----------- FAILURE REPORT -------------- --- failure: length > 1 in coercion to logical --- --- srcref --- : --- package (from environment) --- frambgrowth --- call from context --- Framboids_growth(100, Initialization = FALSE, Simulation = 5, framboids = Framboids, Iterations = 1000, MaxMeanDiameter = 15) --- call from argument --- (!(Initialization)) && (is.na(framboids)) --- R stacktrace --- where 1: Framboids_growth(100, Initialization = FALSE, Simulation = 5, framboids = Framboids, Iterations = 1000, MaxMeanDiameter = 15) --- value of length: 700 type: logical --- c diameter initial_diameter nanocrystals_diameter [1,] FALSE FALSE FALSE FALSE [2,] FALSE FALSE FALSE FALSE [3,] FALSE FALSE FALSE FALSE [4,] FALSE FALSE FALSE FALSE [5,] FALSE FALSE FALSE FALSE [6,] FALSE FALSE FALSE FALSE [7,] FALSE FALSE FALSE FALSE [8,] FALSE FALSE FALSE FALSE [9,] FALSE FALSE FALSE FALSE [10,] FALSE FALSE FALSE FALSE [11,] FALSE FALSE FALSE FALSE [12,] FALSE FALSE FALSE FALSE [13,] FALSE FALSE FALSE FALSE [14,] FALSE FALSE FALSE FALSE [15,] FALSE FALSE FALSE FALSE [16,] FALSE FALSE FALSE FALSE [17,] FALSE FALSE FALSE FALSE [18,] FALSE FALSE FALSE FALSE [19,] FALSE FALSE FALSE FALSE [20,] FALSE FALSE FALSE FALSE [21,] FALSE FALSE FALSE FALSE [22,] FALSE FALSE FALSE FALSE [23,] FALSE FALSE FALSE FALSE [24,] FALSE FALSE FALSE FALSE [25,] FALSE FALSE FALSE FALSE [26,] FALSE FALSE FALSE FALSE [27,] FALSE FALSE FALSE FALSE [28,] FALSE FALSE FALSE FALSE [29,] FALSE FALSE FALSE FALSE [30,] FALSE FALSE FALSE FALSE [31,] FALSE FALSE FALSE FALSE [32,] FALSE FALSE FALSE FALSE [33,] FALSE FALSE FALSE FALSE [34,] FALSE FALSE FALSE FALSE [35,] FALSE FALSE FALSE FALSE [36,] FALSE FALSE FALSE FALSE [37,] FALSE FALSE FALSE FALSE [38,] FALSE FALSE FALSE FALSE [39,] FALSE FALSE FALSE FALSE [40,] FALSE FALSE FALSE FALSE [41,] FALSE FALSE FALSE FALSE [42,] FALSE FALSE FALSE FALSE [43,] FALSE FALSE FALSE FALSE [44,] FALSE FALSE FALSE FALSE [45,] FALSE FALSE FALSE FALSE [46,] FALSE FALSE FALSE FALSE [47,] FALSE FALSE FALSE FALSE [48,] FALSE FALSE FALSE FALSE [49,] FALSE FALSE FALSE FALSE [50,] FALSE FALSE FALSE FALSE [51,] FALSE FALSE FALSE FALSE [52,] FALSE FALSE FALSE FALSE [53,] FALSE FALSE FALSE FALSE [54,] FALSE FALSE FALSE FALSE [55,] FALSE FALSE FALSE FALSE [56,] FALSE FALSE FALSE FALSE [57,] FALSE FALSE FALSE FALSE [58,] FALSE FALSE FALSE FALSE [59,] FALSE FALSE FALSE FALSE [60,] FALSE FALSE FALSE FALSE [61,] FALSE FALSE FALSE FALSE [62,] FALSE FALSE FALSE FALSE [63,] FALSE FALSE FALSE FALSE [64,] FALSE FALSE FALSE FALSE [65,] FALSE FALSE FALSE FALSE [66,] FALSE FALSE FALSE FALSE [67,] FALSE FALSE FALSE FALSE [68,] FALSE FALSE FALSE FALSE [69,] FALSE FALSE FALSE FALSE [70,] FALSE FALSE FALSE FALSE [71,] FALSE FALSE FALSE FALSE [72,] FALSE FALSE FALSE FALSE [73,] FALSE FALSE FALSE FALSE [74,] FALSE FALSE FALSE FALSE [75,] FALSE FALSE FALSE FALSE [76,] FALSE FALSE FALSE FALSE [77,] FALSE FALSE FALSE FALSE [78,] FALSE FALSE FALSE FALSE [79,] FALSE FALSE FALSE FALSE [80,] FALSE FALSE FALSE FALSE [81,] FALSE FALSE FALSE FALSE [82,] FALSE FALSE FALSE FALSE [83,] FALSE FALSE FALSE FALSE [84,] FALSE FALSE FALSE FALSE [85,] FALSE FALSE FALSE FALSE [86,] FALSE FALSE FALSE FALSE [87,] FALSE FALSE FALSE FALSE [88,] FALSE FALSE FALSE FALSE [89,] FALSE FALSE FALSE FALSE [90,] FALSE FALSE FALSE FALSE [91,] FALSE FALSE FALSE FALSE [92,] FALSE FALSE FALSE FALSE [93,] FALSE FALSE FALSE FALSE [94,] FALSE FALSE FALSE FALSE [95,] FALSE FALSE FALSE FALSE [96,] FALSE FALSE FALSE FALSE [97,] FALSE FALSE FALSE FALSE [98,] FALSE FALSE FALSE FALSE [99,] FALSE FALSE FALSE FALSE [100,] FALSE FALSE FALSE FALSE nanocrystals_factor volume nanocrystals [1,] FALSE FALSE FALSE [2,] FALSE FALSE FALSE [3,] FALSE FALSE FALSE [4,] FALSE FALSE FALSE [5,] FALSE FALSE FALSE [6,] FALSE FALSE FALSE [7,] FALSE FALSE FALSE [8,] FALSE FALSE FALSE [9,] FALSE FALSE FALSE [10,] FALSE FALSE FALSE [11,] FALSE FALSE FALSE [12,] FALSE FALSE FALSE [13,] FALSE FALSE FALSE [14,] FALSE FALSE FALSE [15,] FALSE FALSE FALSE [16,] FALSE FALSE FALSE [17,] FALSE FALSE FALSE [18,] FALSE FALSE FALSE [19,] FALSE FALSE FALSE [20,] FALSE FALSE FALSE [21,] FALSE FALSE FALSE [22,] FALSE FALSE FALSE [23,] FALSE FALSE FALSE [24,] FALSE FALSE FALSE [25,] FALSE FALSE FALSE [26,] FALSE FALSE FALSE [27,] FALSE FALSE FALSE [28,] FALSE FALSE FALSE [29,] FALSE FALSE FALSE [30,] FALSE FALSE FALSE [31,] FALSE FALSE FALSE [32,] FALSE FALSE FALSE [33,] FALSE FALSE FALSE [34,] FALSE FALSE FALSE [35,] FALSE FALSE FALSE [36,] FALSE FALSE FALSE [37,] FALSE FALSE FALSE [38,] FALSE FALSE FALSE [39,] FALSE FALSE FALSE [40,] FALSE FALSE FALSE [41,] FALSE FALSE FALSE [42,] FALSE FALSE FALSE [43,] FALSE FALSE FALSE [44,] FALSE FALSE FALSE [45,] FALSE FALSE FALSE [46,] FALSE FALSE FALSE [47,] FALSE FALSE FALSE [48,] FALSE FALSE FALSE [49,] FALSE FALSE FALSE [50,] FALSE FALSE FALSE [51,] FALSE FALSE FALSE [52,] FALSE FALSE FALSE [53,] FALSE FALSE FALSE [54,] FALSE FALSE FALSE [55,] FALSE FALSE FALSE [56,] FALSE FALSE FALSE [57,] FALSE FALSE FALSE [58,] FALSE FALSE FALSE [59,] FALSE FALSE FALSE [60,] FALSE FALSE FALSE [61,] FALSE FALSE FALSE [62,] FALSE FALSE FALSE [63,] FALSE FALSE FALSE [64,] FALSE FALSE FALSE [65,] FALSE FALSE FALSE [66,] FALSE FALSE FALSE [67,] FALSE FALSE FALSE [68,] FALSE FALSE FALSE [69,] FALSE FALSE FALSE [70,] FALSE FALSE FALSE [71,] FALSE FALSE FALSE [72,] FALSE FALSE FALSE [73,] FALSE FALSE FALSE [74,] FALSE FALSE FALSE [75,] FALSE FALSE FALSE [76,] FALSE FALSE FALSE [77,] FALSE FALSE FALSE [78,] FALSE FALSE FALSE [79,] FALSE FALSE FALSE [80,] FALSE FALSE FALSE [81,] FALSE FALSE FALSE [82,] FALSE FALSE FALSE [83,] FALSE FALSE FALSE [84,] FALSE FALSE FALSE [85,] FALSE FALSE FALSE [86,] FALSE FALSE FALSE [87,] FALSE FALSE FALSE [88,] FALSE FALSE FALSE [89,] FALSE FALSE FALSE [90,] FALSE FALSE FALSE [91,] FALSE FALSE FALSE [92,] FALSE FALSE FALSE [93,] FALSE FALSE FALSE [94,] FALSE FALSE FALSE [95,] FALSE FALSE FALSE [96,] FALSE FALSE FALSE [97,] FALSE FALSE FALSE [98,] FALSE FALSE FALSE [99,] FALSE FALSE FALSE [100,] FALSE FALSE FALSE --- function from context --- function (Number_Framboids = 1000, Initialization = TRUE, framboids, Simulation = 1, Initial_Diameter = 0, Nanocrystals_Diameter = 0.1, Packing_Factor = 0.74078, Random_Limit = 1, Iterations = 3, MaxMeanDiameter = 20) { if (Number_Framboids < 1) { print("Number of framboids lower than 0") return() } if ((!(Initialization)) && (is.na(framboids))) { print("Please specify the variable framboids") return() } N <- Number_Framboids mu <- Random_Limit if (Initialization) { D0 <- Initial_Diameter d <- Nanocrystals_Diameter F <- Packing_Factor framboids <- data.frame(c = 1:N, diameter = D0, initial_diameter = D0, nanocrystals_diameter = d, nanocrystals_factor = F, volume = 0, nanocrystals = 0) for (j in 1:N) { if (D0 > 0) { framboids$initial_diameter[j] <- D0 + runif(1) * 0.01 framboids$diameter[j] <- framboids$initial_diameter[j] } framboids$nanocrystals_diameter[j] <- (d - 0.01) + runif(1) * 0.02 framboids$nanocrystals_factor[j] <- (F - 0.01) + runif(1) * 0.02 } } runif(1) i <- 0 AverageDiameter <- mean(framboids$diameter) while ((i < Iterations) && (AverageDiameter < MaxMeanDiameter)) { EpsilonC <- runif(1) * mu for (j in 1:N) { EpsilonF <- runif(1) * mu F <- framboids$nanocrystals_factor[j] d <- framboids$nanocrystals_diameter[j] D0 <- framboids$initial_diameter[j] W <- ((4 * pi * F)/3) * ((D0/2)^3) P <- round(F * ((D0/d)^3)) if (framboids$nanocrystals[j] == 0) { framboids$nanocrystals[j] <- round(1 + EpsilonF) } else { if (Simulation == 1) { framboids$nanocrystals[j] <- framboids$nanocrystals[j] * (1 + EpsilonF) } if (Simulation == 2) { framboids$nanocrystals[j] <- framboids$nanocrystals[j] + EpsilonF } if (Simulation == 3) { framboids$diameter[j] <- framboids$diameter[j] * (1 + EpsilonF) framboids$nanocrystals[j] <- round(F * ((framboids$diameter[j]/d)^3) - P) } if (Simulation == 4) { framboids$diameter[j] <- framboids$diameter[j] + EpsilonF framboids$nanocrystals[j] <- round(F * ((framboids$diameter[j]/d)^3) - P) } if (Simulation == 5) { framboids$nanocrystals[j] <- framboids$nanocrystals[j] * (1 + EpsilonF * EpsilonC) } if (Simulation == 6) { framboids$diameter[j] <- framboids$diameter[j] * (1 + EpsilonF * EpsilonC) framboids$nanocrystals[j] <- round(F * ((framboids$diameter[j]/d)^3) - P) } if (Simulation == 7) { framboids$nanocrystals[j] <- framboids$nanocrystals[j] + EpsilonF * EpsilonC } if (Simulation == 8) { framboids$diameter[j] <- framboids$diameter[j] + EpsilonF * EpsilonC framboids$nanocrystals[j] <- round(F * ((framboids$diameter[j]/d)^3) - P) } } framboids$diameter[j] <- d * (((framboids$nanocrystals[j] + P)/F)^(1/3)) framboids$volume[j] <- ((F * 4 * pi)/3) * ((framboids$diameter[j]/2)^3) - W } i <- i + 1 AverageDiameter <- mean(framboids$diameter) } return(framboids) } --- function search by body --- Function Framboids_growth in namespace frambgrowth has this body. ----------- END OF FAILURE REPORT -------------- Fatal error: length > 1 in coercion to logical * checking PDF version of manual ... OK * checking for non-standard things in the check directory ... OK * checking for detritus in the temp directory ... OK * DONE Status: 1 ERROR, 1 NOTE See ‘/data/gannet/ripley/R/packages/tests-LENGTH1/frambgrowth.Rcheck/00check.log’ for details. Command exited with non-zero status 1 Time 1:25.96, 25.99 + 5.04