Running 't-CIcdfplot.R' [5s/5s]
  Running 't-bootdist.R' [13s/14s]
  Running 't-bootdistcens.R' [4s/5s]
  Running 't-cdfcomp.R' [3s/4s]
  Running 't-cdfcompcens.R' [4s/5s]
  Running 't-cvg-algo.R' [2s/3s]
  Running 't-denscomp.R' [3s/4s]
  Running 't-descdist.R' [2s/3s]
  Running 't-detectbound.R' [2s/3s]
  Running 't-fitbench.R' [2s/2s]
  Running 't-fitdist-customoptim.R' [3s/3s]
  Running 't-fitdist.R' [13s/15s]
  Running 't-fitdistcens.R' [5s/6s]
  Running 't-getparam.R' [2s/3s]
  Running 't-gofstat.R' [2s/3s]
  Running 't-init-actuar.R' [0s/0s]
  Running 't-llplot.R' [10s/12s]
  Running 't-lnL-surf.R' [3s/3s]
  Running 't-logLik-vcov-coef.R' [2s/3s]
  Running 't-manageparam.R' [2s/3s]
  Running 't-mgedist.R' [3s/3s]
  Running 't-mledist-cens.R' [2s/3s]
  Running 't-mledist-nocens.R' [10s/11s]
  Running 't-mmedist.R' [10s/11s]
  Running 't-parallel.R' [0s/0s]
  Running 't-plotdist.R' [2s/2s]
  Running 't-plotdistcens.R' [3s/4s]
  Running 't-ppcomp.R' [3s/4s]
  Running 't-ppcompcens.R' [5s/5s]
  Running 't-prefit.R' [3s/3s]
  Running 't-qme-discrete.R' [10s/11s]
  Running 't-qmedist.R' [8s/9s]
  Running 't-qqcomp.R' [3s/4s]
  Running 't-qqcompcens.R' [5s/6s]
  Running 't-quantiledist.R' [3s/4s]
  Running 't-startfixarg-overall.R' [4s/5s]
  Running 't-startingvalues.R' [2s/3s]
  Running 't-util-testdensity.R' [2s/3s]
  Running 't-weird-ppcomp-cens.R' [2s/3s]
  Running 't-weird-qqcomp-cens.R' [2s/3s]
Running the tests in 'tests/t-cdfcomp.R' failed.
Complete output:
  > library(fitdistrplus)
  Loading required package: MASS
  Loading required package: survival
  Loading required package: npsurv
  Loading required package: lsei
  > 
  > # ?cdfcomp
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > nsample <- 1000
  > nsample <- 100
  > 
  > 
  > # (1) Plot various distributions fitted to serving size data
  > #
  > data(groundbeef)
  > serving <- groundbeef$serving
  > fitW <- fitdist(serving,"weibull")
  > fitln <- fitdist(serving,"lnorm")
  > fitg <- fitdist(serving,"gamma")
  > 
  > #sanity checks
  > try(cdfcomp("list(fitW, fitln, fitg)",horizontals = FALSE), silent=TRUE)
  > try(cdfcomp(list(fitW, fitln, fitg, a=1),horizontals = FALSE), silent=TRUE)
  > 
  > #real call
  > cdfcomp(list(fitW, fitln, fitg), horizontals = FALSE)
  > cdfcomp(list(fitW, fitln, fitg), horizontals = TRUE)
  > cdfcomp(list(fitW, fitln, fitg), horizontals = TRUE, lines01 = TRUE)
  > cdfcomp(list(fitW, fitln, fitg), horizontals = TRUE, verticals = TRUE, datacol = "grey")
  > if (requireNamespace ("ggplot2", quietly = TRUE)) {
  +   cdfcomp(list(fitW, fitln, fitg), horizontals = FALSE, plotstyle = "ggplot")
  + }
  Error: Unknown colour name: 2
  Execution halted
Running the tests in 'tests/t-cdfcompcens.R' failed.
Complete output:
  > library(fitdistrplus)
  Loading required package: MASS
  Loading required package: survival
  Loading required package: npsurv
  Loading required package: lsei
  > 
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > 
  > # (1) Plot various distributions fitted to bacterial contamination data
  > #
  > data(smokedfish)
  > Clog10 <- log10(smokedfish)
  > 
  > fitsfn <- fitdistcens(Clog10,"norm")
  > fitsfl <- fitdistcens(Clog10,"logis")
  > 
  > dgumbel <- function(x,a,b) 1/b*exp((a-x)/b)*exp(-exp((a-x)/b))
  > pgumbel <- function(q,a,b) exp(-exp((a-q)/b))
  > qgumbel <- function(p,a,b) a-b*log(-log(p))
  > fitsfg <- fitdistcens(Clog10, "gumbel", start=list(a=-3,b=3))
  > 
  > cdfcompcens(list(fitsfn,fitsfl,fitsfg))
  > 
  > # Same plot in y logscale
  > cdfcompcens(list(fitsfn, fitsfl, fitsfg), NPMLE.method = "Turnbull",
  +             ylogscale = TRUE, ylim=c(.5, .99))
  > cdfcompcens(list(fitsfn, fitsfl, fitsfg), NPMLE.method = "Wang",
  +             ylogscale = TRUE, ylim=c(.5, .99))
  > 
  > if (requireNamespace ("ggplot2", quietly = TRUE)) {
  +   cdfcompcens(list(fitsfn,fitsfl,fitsfg), plotstyle = "ggplot")
  +   cdfcompcens(list(fitsfn,fitsfl,fitsfg), datacol="grey", 
  +               legendtext=c("normal","logistic","Gumbel"),
  +               main="bacterial contamination fits",
  +               xlab="bacterial concentration (CFU/g)", ylab="F",
  +               xlegend = "center", lines01 = TRUE, plotstyle = "ggplot")
  +   
  +   # Same plot in y logscale
  +   cdfcompcens(list(fitsfn, fitsfl, fitsfg), NPMLE.method = "Wang",
  +               ylogscale = TRUE, ylim=c(.5, .99), plotstyle = "ggplot")
  + }
  Error: Unknown colour name: 2
  In addition: Warning messages:
  1: Transformation introduced infinite values in continuous y-axis 
  2: Transformation introduced infinite values in continuous y-axis 
  Execution halted
Running the tests in 'tests/t-denscomp.R' failed.
Complete output:
  > library(fitdistrplus)
  Loading required package: MASS
  Loading required package: survival
  Loading required package: npsurv
  Loading required package: lsei
  > 
  > # ?denscomp
  > visualize <- FALSE # TRUE for manual test with visualization of plots
  > nsample <- 1000
  > nsample <- 100
  > 
  > # (1) Plot various distributions fitted to serving size data
  > #
  > data(groundbeef)
  > serving <- groundbeef$serving
  > fitW <- fitdist(serving,"weibull")
  > fitln <- fitdist(serving,"lnorm")
  > fitg <- fitdist(serving,"gamma")
  > 
  > #sanity checks
  > try(denscomp("list(fitW, fitln, fitg)",horizontals = FALSE), silent=TRUE)
  > try(denscomp(list(fitW, fitln, fitg, a=1),horizontals = FALSE), silent=TRUE)
  > 
  > #real call
  > denscomp(list(fitW, fitln, fitg), probability = TRUE)
  > denscomp(list(fitW, fitln, fitg), probability = FALSE)
  > if (requireNamespace ("ggplot2", quietly = TRUE)) {
  +   denscomp(list(fitW, fitln, fitg), probability=TRUE, plotstyle = "ggplot")
  +   denscomp(list(fitW, fitln, fitg), probability=FALSE, plotstyle = "ggplot")
  + }
  Error: Unknown colour name: 2
  Execution halted
Running the tests in 'tests/t-ppcomp.R' failed.
Complete output:
  > library(fitdistrplus)
  Loading required package: MASS
  Loading required package: survival
  Loading required package: npsurv
  Loading required package: lsei
  > 
  > # ?ppcomp
  > 
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > nsample <- 1000
  > nsample <- 100
  > 
  > # (1) Plot various distributions fitted to serving size data
  > #
  > data(groundbeef)
  > serving <- groundbeef$serving
  > fitW <- fitdist(serving, "weibull")
  > fitln <- fitdist(serving, "lnorm")
  > fitg <- fitdist(serving, "gamma")
  > 
  > # sanity checks
  > try(ppcomp("list(fitW, fitln, fitg)"), silent = TRUE)
  > try(ppcomp(list(fitW, fitln, fitg, a = 1)), silent = TRUE)
  > 
  > # real call
  > ppcomp(list(fitW, fitln, fitg))
  > 
  > ppcomp(list(fitW, fitln, fitg), legendtext = c("Weibull", "lognormal", "gamma"),
  +        main="ground beef fits", xlab="Theo.",
  +        ylab="serving sizes (g)", xlim = c(0, 1/2))
  > 
  > ppcomp(list(fitW, fitln, fitg), legendtext=c("Weibull","lognormal","gamma"),
  +        main="ground beef fits", xlab="Theo.",
  +        ylab="serving sizes (g)", xlogscale=TRUE, line01=FALSE)
  Warning message:
  In ppcomp(list(fitW, fitln, fitg), legendtext = c("Weibull", "lognormal",  :
    As a P-P plot should use the same scale on x and y axes, 
              both or none of the axes should be put in a logarithmic scale.
  > 
  > ppcomp(list(fitW, fitln, fitg), legendtext=c("Weibull","lognormal","gamma"),
  +        main="ground beef fits", xlab="Theo.",
  +        ylab="serving sizes (g)", ylogscale=TRUE, line01=FALSE)
  Warning message:
  In ppcomp(list(fitW, fitln, fitg), legendtext = c("Weibull", "lognormal",  :
    As a P-P plot should use the same scale on x and y axes, 
              both or none of the axes should be put in a logarithmic scale.
  > 
  > ppcomp(list(fitW, fitln, fitg), legendtext=c("Weibull","lognormal","gamma"),
  +        main="ground beef fits", ylim=c(1e-3, 1), xlim=c(1e-3, 1),
  +        fitpch=c("+", "-", "."))
  > 
  > if (requireNamespace ("ggplot2", quietly = TRUE)) {
  +   ppcomp(list(fitW, fitln, fitg), plotstyle = "ggplot")
  + }
  Error: Unknown colour name: 2
  Execution halted
Running the tests in 'tests/t-qqcomp.R' failed.
Complete output:
  > library(fitdistrplus)
  Loading required package: MASS
  Loading required package: survival
  Loading required package: npsurv
  Loading required package: lsei
  > 
  > # ?qqcomp
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > nsample <- 1000
  > nsample <- 100
  > 
  > 
  > # (1) Plot various distributions fitted to serving size data
  > #
  > data(groundbeef)
  > serving <- groundbeef$serving
  > fitW <- fitdist(serving, "weibull")
  > fitln <- fitdist(serving, "lnorm")
  > fitg <- fitdist(serving, "gamma")
  > 
  > #sanity checks
  > try(qqcomp("list(fitW, fitln, fitg)"), silent = TRUE)
  > try(qqcomp(list(fitW, fitln, fitg, a = 1)), silent = TRUE)
  > 
  > #real call
  > qqcomp(list(fitW, fitln, fitg))
  > 
  > qqcomp(list(fitW, fitln, fitg), legendtext = c("Weibull", "lognormal", "gamma"),
  +        main = "ground beef fits", xlab = "Theo.",
  +        ylab = "serving sizes (g)", xlim = c(0, 250))
  > 
  > qqcomp(list(fitW, fitln, fitg), legendtext=c("Weibull","lognormal","gamma"),
  +        main="ground beef fits", xlab="Theo.",
  +        ylab="serving sizes (g)", xlogscale=TRUE)
  Warning message:
  In qqcomp(list(fitW, fitln, fitg), legendtext = c("Weibull", "lognormal",  :
    As a Q-Q plot should use the same scale on x and y axes, 
              both or none of the axes should be put in a logarithmic scale.
  > 
  > qqcomp(list(fitW, fitln, fitg), legendtext=c("Weibull","lognormal","gamma"),
  +        main="ground beef fits", xlab="Theo.",
  +        ylab="serving sizes (g)", ylogscale=TRUE)
  Warning message:
  In qqcomp(list(fitW, fitln, fitg), legendtext = c("Weibull", "lognormal",  :
    As a Q-Q plot should use the same scale on x and y axes, 
              both or none of the axes should be put in a logarithmic scale.
  > 
  > qqcomp(list(fitW, fitln, fitg), legendtext=c("Weibull","lognormal","gamma"),
  +        main="ground beef fits", ylim=c(1, 250), xlim=c(1, 250),
  +        fitpch=c("+", "-", "."))
  > 
  > 
  > if (requireNamespace ("ggplot2", quietly = TRUE)) {
  +   qqcomp(list(fitW, fitln, fitg), plotstyle = "ggplot")
  + }
  Error: Unknown colour name: 2
  Execution halted