Running ‘t-CIcdfplot.R’ [4s/5s]
  Running ‘t-bootdist.R’ [11s/12s]
  Running ‘t-bootdistcens.R’ [3s/4s]
  Running ‘t-cdfcomp.R’ [4s/5s]
  Running ‘t-cdfcompcens.R’ [4s/5s]
  Running ‘t-cvg-algo.R’ [2s/3s]
  Running ‘t-denscomp.R’ [4s/4s]
  Running ‘t-descdist.R’ [2s/3s]
  Running ‘t-detectbound.R’ [2s/2s]
  Running ‘t-fitbench.R’ [2s/2s]
  Running ‘t-fitdist-customoptim.R’ [2s/2s]
  Running ‘t-fitdist.R’ [12s/13s]
  Running ‘t-fitdistcens.R’ [5s/6s]
  Running ‘t-getparam.R’ [2s/2s]
  Running ‘t-gofstat.R’ [2s/3s]
  Running ‘t-init-actuar.R’ [0s/1s]
  Running ‘t-llplot.R’ [9s/10s]
  Running ‘t-lnL-surf.R’ [3s/3s]
  Running ‘t-logLik-vcov-coef.R’ [2s/2s]
  Running ‘t-manageparam.R’ [2s/2s]
  Running ‘t-mgedist.R’ [3s/3s]
  Running ‘t-mledist-cens.R’ [2s/3s]
  Running ‘t-mledist-nocens.R’ [9s/9s]
  Running ‘t-mmedist.R’ [9s/10s]
  Running ‘t-parallel.R’ [0s/0s]
  Running ‘t-plotdist.R’ [2s/3s]
  Running ‘t-plotdistcens.R’ [3s/3s]
  Running ‘t-ppcomp.R’ [4s/4s]
  Running ‘t-ppcompcens.R’ [4s/4s]
  Running ‘t-prefit.R’ [3s/3s]
  Running ‘t-qme-discrete.R’ [8s/9s]
  Running ‘t-qmedist.R’ [6s/7s]
  Running ‘t-qqcomp.R’ [6s/6s]
  Running ‘t-qqcompcens.R’ [4s/5s]
  Running ‘t-quantiledist.R’ [2s/2s]
  Running ‘t-startfixarg-overall.R’ [3s/4s]
  Running ‘t-startingvalues.R’ [2s/3s]
  Running ‘t-util-testdensity.R’ [2s/3s]
  Running ‘t-weird-ppcomp-cens.R’ [2s/2s]
  Running ‘t-weird-qqcomp-cens.R’ [2s/2s]
Running the tests in ‘tests/t-fitdist-customoptim.R’ failed.
Complete output:
  > myoptimize <- function(fn,par,ui,ci,...){
  +   res <- constrOptim(f=fn,theta=par,method="Nelder-Mead",ui=ui,ci=ci, ...)
  +   standardres <- c(res,convergence=0,value=res$objective,par=res$minimum,hessian=NA)
  +   return(standardres)
  + }
  > 
  > 
  > #one parameter example
  > x <- rexp(100)
  > library(fitdistrplus)
  Loading required package: MASS
  Loading required package: survival
  Loading required package: npsurv
  Loading required package: lsei
  > fitdist(x, "exp")
  Fitting of the distribution ' exp ' by maximum likelihood 
  Parameters:
        estimate Std. Error
  rate 0.9238786 0.09238775
  > 
  > #binding example 
  > fitdist(x, "exp", custom.optim=myoptimize, ui=1, ci=2, start=list(rate=10))
  Fitting of the distribution ' exp ' by maximum likelihood 
  Parameters:
       estimate Std. Error
  rate        2         NA
  > fitdist(x, "exp", lower= 2, optim.method="L-BFGS-B")
  Fitting of the distribution ' exp ' by maximum likelihood 
  Parameters:
       estimate Std. Error
  rate        2        0.2
  > 
  > #two parameter example
  > x <- rbeta(100, pi, 1/pi)
  > 
  > fitdist(x, "beta")
  <simpleError in optim(par = vstart, fn = fnobj, fix.arg = fix.arg, obs = data,     gr = gradient, ddistnam = ddistname, hessian = TRUE, method = meth,     lower = lower, upper = upper, ...): function cannot be evaluated at initial parameters>
  Error in fitdist(x, "beta") : 
    the function mle failed to estimate the parameters, 
                  with the error code 100
  Execution halted