Running ‘t-CIcdfplot.R’
  Running ‘t-bootdist.R’
Running the tests in ‘tests/t-bootdist.R’ failed.
Complete output:
  > library(fitdistrplus)
  Loading required package: MASS
  Loading required package: survival
  > #We choose a low number of bootstrap replicates in order to satisfy CRAN running times constraint.
  > #For practical application, we recommend to use nbboot=501 or nbboot=1001.
  > 
  > nbboot <- 1001
  > nbboot <- 21
  > 
  > # (1) Fit of a gamma distribution to serving size data
  > # using default method (maximum likelihood estimation)
  > # followed by parametric bootstrap
  > #
  > data(groundbeef)
  > serving <- groundbeef$serving
  > f1 <- fitdist(serving, "gamma")
  > b1 <- bootdist(f1, niter=nbboot, silent=TRUE)
  > b1 <- bootdist(f1, niter=nbboot, silent=FALSE)
  > 
  > print(lapply(b1, head))
  $estim
       shape       rate
  1 3.638732 0.04745381
  2 4.519547 0.05790342
  3 4.201268 0.05697818
  4 4.465178 0.06349376
  5 3.950864 0.05301047
  6 3.919072 0.05413118
  
  $converg
  [1] 0 0 0 0 0 0
  
  $method
  [1] "param"
  
  $nbboot
  [1] 21
  
  $CI
            Median       2.5%      97.5%
  shape 3.94309318 3.48565084 4.68668834
  rate  0.05308757 0.04728565 0.06523422
  
  $fitpart
  $fitpart$estimate
       shape       rate 
  4.00825257 0.05441911 
  
  $fitpart$method
  [1] "mle"
  
  $fitpart$sd
        shape        rate 
  0.341336046 0.004935468 
  
  $fitpart$cor
            shape      rate
  shape 1.0000000 0.9384381
  rate  0.9384381 1.0000000
  
  $fitpart$vcov
              shape         rate
  shape 0.116510296 1.580943e-03
  rate  0.001580943 2.435884e-05
  
  $fitpart$loglik
  [1] -1253.625
  
  
  > plot(b1)
  > summary(b1)
  Parametric bootstrap medians and 95% percentile CI 
            Median       2.5%      97.5%
  shape 3.94309318 3.48565084 4.68668834
  rate  0.05308757 0.04728565 0.06523422
  > 
  > # (1) bis test new plot arguments
  > #for new graph functions
  > f1 <- fitdist(rgamma(100, 2, 3), "gamma")
  > b1 <- bootdist(f1, niter=nbboot, silent=TRUE)
  > plot(b1)
  > plot(b1, trueval = c(2, 3))
  > plot(b1, enhance=TRUE)
  > plot(b1, enhance=TRUE, trueval = c(2, 3))
  > plot(b1, enhance=TRUE, rampcol=c("blue", "green"), nbgrid=15, nbcol=15)
  > 
  > if(any(installed.packages()[, "Package"] == "actuar"))
  + {
  +   require(actuar)
  +   
  +   f1 <- fitdist(rburr(100, 2, 3, 1), "burr", start=list(shape1=10, shape2=10, rate=1))
  +   b1 <- bootdist(f1, niter=nbboot, silent=TRUE)
  +   plot(b1)
  +   plot(b1, trueval = c(2, 3, 1))
  +   plot(b1, enhance=TRUE)
  +   plot(b1, enhance=TRUE, trueval = c(2, 3, 1))
  + }
  Loading required package: actuar
  
  Attaching package: 'actuar'
  
  The following object is masked from 'package:grDevices':
  
      cm
  
  Error in fitdist(rburr(100, 2, 3, 1), "burr", start = list(shape1 = 10,  : 
    the function mle failed to estimate the parameters, 
                  with the error code 1
  Execution halted