* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/fitDRC.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 ‘fitDRC/DESCRIPTION’ ... OK * checking extension type ... Package * this is package ‘fitDRC’ version ‘1.1.1’ * 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 ‘fitDRC’ can be installed ... [6s/18s] 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 ... [13s/34s] 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 examples ... ERROR Running examples in ‘fitDRC-Ex.R’ failed The error most likely occurred in: > ### Name: drclass > ### Title: The class 'drclass' in the fitDRC-package: its constructors and > ### methods. > ### Aliases: drclass drclass.create print.drclass summary.drclass > ### plot.drclass Kappa.drclass Lambda.drclass metrics.drclass > ### metric.ci.drclass metric.width.drclass metric.shape.drclass > ### metric.mode.drclass > ### Keywords: distribution > > ### ** Examples > > drc <- drclass.create (p = c(0.05,0.25,0.666,0.75,0.95), + q = qnorm(c(0.05,0.25,0.5,0.75,0.95)), + dist.lower = dist.normal.create(c(0,1)), + dist.upper = dist.normal.create(c(0,1))) > drc ---------------------------- Default Density Ratio Class ---------------------------- ----------------- ----- Range ----- ----------------- Min Max Range -Inf Inf ----------------- ----- P & Q ----- ----------------- Probabilities Quantiles Pt. 0.050 -1.6448536 Pt. 0.250 -0.6744898 Pt. 0.666 0.0000000 Pt. 0.750 0.6744898 Pt. 0.950 1.6448536 ----------------- ----- Lower ----- ----------------- Normal Distribution ------------------- Range: -Inf Inf Parameter names, ranges and values: Min Max Value Mean -Inf Inf 0 StDev 0 Inf 1 Mean: 0 StDev: 1 Median: 0 Mode: 0 ----------------- ----- Upper ----- ----------------- Normal Distribution ------------------- Range: -Inf Inf Parameter names, ranges and values: Min Max Value Mean -Inf Inf 0 StDev 0 Inf 1 Mean: 0 StDev: 1 Median: 0 Mode: 0 -------------------------- ----- Kappa & Lambda ----- -------------------------- ----------- FAILURE REPORT -------------- --- failure: length > 1 in coercion to logical --- --- srcref --- : --- package (from environment) --- fitDRC --- call from context --- calc.k(drc$p, drc$q, drc$dist.lower, drc$dist.upper, drc$dist.lower$par, drc$dist.upper$par) --- call from argument --- is.na(p) && is.na(q) --- R stacktrace --- where 1: calc.k(drc$p, drc$q, drc$dist.lower, drc$dist.upper, drc$dist.lower$par, drc$dist.upper$par) where 2: Lambda.drclass(drc) where 3: Lambda(drc) where 4: matrix(c(Lambda(drc), Kappa(drc)), ncol = 1, byrow = TRUE) where 5: print.drclass(x) where 6: (function (x, ...) UseMethod("print"))(x) --- value of length: 5 type: logical --- [1] FALSE FALSE FALSE FALSE FALSE --- function from context --- function (p = NA, q = NA, dist.lower, dist.upper, par.lower, par.upper) { x.min.lower <- CDFinv(dist.lower, 0.001, par.lower) x.max.lower <- CDFinv(dist.lower, 0.999, par.lower) x.min.upper <- CDFinv(dist.upper, 0.001, par.upper) x.max.upper <- CDFinv(dist.upper, 0.999, par.upper) x.min <- min(x.min.lower, x.min.upper) x.max <- max(x.max.lower, x.max.upper) x <- seq(x.min, x.max, length = 1e+06) Lambda <- max(PDF(dist.lower, x, par.lower)/PDF(dist.upper, x, par.upper)) k1 <- (p * (1 - CDF(dist.lower, q, par.lower)))/(CDF(dist.upper, q, par.upper) * (1 - p)) k2 <- (CDF(dist.lower, q, par.lower) * (1 - p))/(p * (1 - CDF(dist.upper, q, par.upper))) Kappa <- max(Lambda, k1, k2) if (is.na(p) && is.na(q)) { Kappa <- Lambda } return(list(Kappa = Kappa, Lambda = Lambda)) } --- function search by body --- Function calc.k in namespace fitDRC 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 See ‘/data/gannet/ripley/R/packages/tests-LENGTH1/fitDRC.Rcheck/00check.log’ for details. Command exited with non-zero status 1 Time 2:08.06, 42.90 + 5.83