Running ‘t-CIcdfplot.R’ [13s/14s]
  Running ‘t-Surv2fitdistcens.R’ [2s/2s]
  Running ‘t-bootdist.R’ [5s/6s]
  Running ‘t-bootdistcens.R’ [2s/2s]
  Running ‘t-cdfcomp.R’ [4s/4s]
  Running ‘t-cdfcompcens.R’ [2s/2s]
  Running ‘t-denscomp.R’ [4s/5s]
  Running ‘t-descdist.R’ [2s/2s]
  Running ‘t-detectbound.R’ [1s/2s]
  Running ‘t-fitdist-burr.R’ [9s/11s]
  Running ‘t-fitdist-customoptim.R’ [2s/2s]
  Running ‘t-fitdist-hessianpb.R’ [2s/2s]
  Running ‘t-fitdist-test-arguments.R’ [2s/2s]
  Running ‘t-fitdist.R’ [2s/3s]
  Running ‘t-fitdistcens.R’ [4s/4s]
  Running ‘t-gen-max-spacing-estim.R’ [2s/2s]
  Running ‘t-gofstat.R’ [2s/2s]
  Running ‘t-llplot.R’ [2s/2s]
  Running ‘t-lnL-surf.R’ [2s/2s]
  Running ‘t-logLik-vcov-coef.R’ [2s/2s]
  Running ‘t-mgedist.R’ [3s/3s]
  Running ‘t-mledist-asymptotic-vcov.R’ [2s/2s]
  Running ‘t-mledist-cens.R’ [2s/3s]
  Running ‘t-mledist-nocens.R’ [3s/3s]
  Running ‘t-mledist-paramsupport.R’ [3s/3s]
  Running ‘t-mmedist-asymptotic-vcov.R’ [2s/3s]
  Running ‘t-mmedist.R’ [4s/4s]
  Running ‘t-msedist.R’ [2s/3s]
  Running ‘t-parallel.R’ [0s/0s]
  Running ‘t-plotdist.R’ [2s/2s]
  Running ‘t-plotdistcens.R’ [2s/3s]
  Running ‘t-ppcomp.R’ [2s/3s]
  Running ‘t-ppcompcens.R’ [2s/2s]
  Running ‘t-qme-discrete.R’ [6s/6s]
  Running ‘t-qmedist.R’ [4s/5s]
  Running ‘t-qqcomp.R’ [2s/2s]
  Running ‘t-qqcompcens.R’ [2s/3s]
  Running ‘t-quantiledist.R’ [2s/2s]
  Running ‘t-weird-ppcomp-cens.R’ [2s/3s]
  Running ‘t-weird-qqcomp-cens.R’ [2s/2s]
Running the tests in ‘tests/t-cdfcompcens.R’ failed.
Complete output:
  > require("fitdistrplus")
  Loading required package: fitdistrplus
  Loading required package: MASS
  Loading required package: survival
  > 
  > 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))
  > cdfcompcens(list(fitsfn,fitsfl,fitsfg), fitlty=1, fitlwd=3)
  > 
  > # Same plot in y logscale
  > cdfcompcens(list(fitsfn, fitsfl, fitsfg), NPMLE.method = "Turnbull",
  +             ylogscale = TRUE, ylim=c(.5, .99))
  Warning message:
  In cdfcompcens(list(fitsfn, fitsfl, fitsfg), NPMLE.method = "Turnbull",  :*** buffer overflow detected ***: terminated
  Aborted
Running the tests in ‘tests/t-plotdistcens.R’ failed.
Complete output:
  > require("fitdistrplus")
  Loading required package: fitdistrplus
  Loading required package: MASS
  Loading required package: survival
  > 
  > # (1) Plot of an empirical censored distribution (censored data) as a CDF
  > # using the default Turnbull method
  > #
  > data(smokedfish)
  > plotdistcens(smokedfish)
  > plotdistcens(data.frame(right=smokedfish$right, left=smokedfish$left))
  > d1 <- as.data.frame(log10(smokedfish))
  > plotdistcens(d1)
  > 
  > #test on first arg
  > try(plotdistcens(list(left=smokedfish$left, right=smokedfish$right)))
  Error in plotdistcens(list(left = smokedfish$left, right = smokedfish$right)) : 
    datacens must be a dataframe with two columns named 'left' and 'right' and more than one line
  > try(plotdistcens(cbind(left=smokedfish$left, right=smokedfish$right)))
  Error in plotdistcens(cbind(left = smokedfish$left, right = smokedfish$right)) : 
    datacens must be a dataframe with two columns named 'left' and 'right' and more than one line
  > d2 <- data.frame(left=smokedfish$right, right=smokedfish$left)
  > try(plotdistcens(d2))
  Error in plotdistcens(d2) : 
    some rows in censdata have left values strictly greater than right values
  > 
  > # (2) Add the CDF of a normal distribution and QQ and PP plots
  > #
  > plotdistcens(smokedfish,"lnorm", para=list(meanlog=-3.6,sdlog=3.5))
  > plotdistcens(d1,"norm", para=list(mean=-1.6,sd=1.5))
  > 
  > # (3) Various plots of the same empirical distribution 
  > #
  > # default Wang plot
  > plotdistcens(d1, NPMLE = TRUE, NPMLE.method = "Wang")
  > plotdistcens(d1, NPMLE = TRUE, NPMLE.method = "Wang", lwd = 3, main = "Wang ECDF plot")
  > # Turnbull plot
  > plotdistcens(d1, NPMLE = TRUE, NPMLE.method = "Turnbull", col = "red", 
  +              main = "Turnbull ECDF plot")
  Warning message:
  In plotdistcens(d1, NPMLE = TRUE, NPMLE.method = "Turnbull", col = "red",  :*** buffer overflow detected ***: terminated
  Aborted
Running the tests in ‘tests/t-ppcomp.R’ failed.
Complete output:
  > require("fitdistrplus")
  Loading required package: fitdistrplus
  Loading required package: MASS
  Loading required package: survival
  > 
  > # ?ppcomp
  > 
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > nsample <- 1000
  > nsample <- 10
  > set.seed(123) # here just to make random sampling reproducible
  > 
  > # (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
  > res <- ppcomp(list(fitW, fitln, fitg))
  > str(res)
  List of 2
   $ obs          : num [1:254] 0.00197 0.00591 0.00984 0.01378 0.01772 ...
   $ probabilities: num [1:254, 1:3] 0.00966 0.01309 0.03048 0.0432 0.0432 ...
  > 
  > 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",  :*** buffer overflow detected ***: terminated
  Aborted
Running the tests in ‘tests/t-ppcompcens.R’ failed.
Complete output:
  > require("fitdistrplus")
  Loading required package: fitdistrplus
  Loading required package: MASS
  Loading required package: survival
  > 
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > 
  > data(smokedfish)
  > fitsf  <-  fitdistcens(smokedfish,"lnorm")
  > plot(fitsf)
  > ppcompcens(fitsf)
  > ppcompcens(fitsf, fillrect = NA)
  > ppcompcens(fitsf, fitcol = "black")
  > ppcompcens(fitsf, fitcol = "black", fillrect = NA)
  > ppcompcens(fitsf, ylim = c(0.4,1)) 
  Warning message:
  In ppcompcens(fitsf, ylim = c(0.4, 1)) :*** buffer overflow detected ***: terminated
  Aborted
Running the tests in ‘tests/t-qqcomp.R’ failed.
Complete output:
  > require("fitdistrplus")
  Loading required package: fitdistrplus
  Loading required package: MASS
  Loading required package: survival
  > 
  > # ?qqcomp
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > nsample <- 1000
  > nsample <- 10
  > set.seed(123) # here just to make random sampling reproducible
  > 
  > 
  > # (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
  > res <- qqcomp(list(fitW, fitln, fitg))
  > str(res)
  List of 2
   $ obs      : num [1:254] 10 11.5 17 20 20 20 20 20 20 20 ...
   $ quantiles: num [1:254, 1:3] 4.82 7.98 10.09 11.78 13.22 ...
  > 
  > 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",  :*** buffer overflow detected ***: terminated
  Aborted
Running the tests in ‘tests/t-qqcompcens.R’ failed.
Complete output:
  > require("fitdistrplus")
  Loading required package: fitdistrplus
  Loading required package: MASS
  Loading required package: survival
  > visualize <- FALSE # TRUE for manual tests with visualization of results
  > 
  > data(smokedfish)
  > fitsf  <-  fitdistcens(smokedfish,"lnorm")
  > plot(fitsf)
  > qqcompcens(fitsf)
  > qqcompcens(fitsf, fillrect = NA)
  > qqcompcens(fitsf, fitcol = "black")
  > qqcompcens(fitsf, fitcol = "black", fillrect = NA)
  > qqcompcens(fitsf, ylim = c(0,150)) 
  Warning message:
  In qqcompcens(fitsf, ylim = c(0, 150)) :*** buffer overflow detected ***: terminated
  Aborted