Uncomment some examples

man/bootdistcens.Rd

@@ -127,7 +127,7 @@ Marie-Laure Delignette-Muller and Christophe Dutang.
 data(fluazinam)
 (d1 <-log10(fluazinam))
 f1 <- fitdistcens(d1, "norm")
-b1 <- bootdistcens(f1, niter = 101)
+b1 <- bootdistcens(f1, niter = 51)
 b1
 summary(b1)
 plot(b1)
@@ -141,7 +141,7 @@ CIcdfplot(b1, CI.output = "quantile")
 # and calculation of quantiles with 95 percent confidence intervals
 #
 f1b <- fitdistcens(d1, "norm", start = list(mean = 1),fix.arg = list(sd = 1))
-b1b <- bootdistcens(f1b, niter = 101)
+b1b <- bootdistcens(f1b, niter = 51)
 summary(b1b)
 plot(b1b)
 quantile(b1b)

man/descdist.Rd

@@ -102,32 +102,32 @@ Marie-Laure Delignette-Muller and Christophe Dutang.
 set.seed(1234)
 x1 <- rnorm(100)
 descdist(x1)
-descdist(x1,boot=100)
+descdist(x1,boot=51)
 
 # (2) Description of a sample from a beta distribution
 # with uncertainty on skewness and kurtosis estimated by bootstrap
 # with changing of default colors and plotting character for observed point
 #
-descdist(rbeta(100,shape1=0.05,shape2=1),boot=100,
+descdist(rbeta(100,shape1=0.05,shape2=1),boot=51,
  obs.col="blue", obs.pch = 15, boot.col="darkgreen")
 
 # (3) Description of a sample from a gamma distribution
 # with uncertainty on skewness and kurtosis estimated by bootstrap
 # without plotting 
 #
-descdist(rgamma(100,shape=2,rate=1),boot=100,graph=FALSE)
+descdist(rgamma(100,shape=2,rate=1),51=100,graph=FALSE)
 
 # (3) Description of a sample from a Poisson distribution
 # with uncertainty on skewness and kurtosis estimated by bootstrap 
 #
-descdist(rpois(100,lambda=2),discrete=TRUE,boot=100)
+descdist(rpois(100,lambda=2),discrete=TRUE,boot=51)
 
 # (4) Description of serving size data
 # with uncertainty on skewness and kurtosis estimated by bootstrap 
 #
 data(groundbeef)
 serving <- groundbeef$serving
-descdist(serving, boot=100)
+descdist(serving, boot=51)
 }
 
 \keyword{ distribution }

man/endosulfan.Rd

@@ -36,7 +36,7 @@ data(endosulfan)
 #
 log10ATV <-log10(subset(endosulfan,(Australian == "no") & (group == "Fish"))$ATV)
 plotdist(log10ATV)
-# descdist(log10ATV,boot=1000)
+descdist(log10ATV,boot=51)
 
 # (3) fit of a normal and a logistic distribution to data in log10
 # (classical distributions used for SSD)

man/groundbeef.Rd

@@ -23,7 +23,7 @@ data(groundbeef)
 # (2) description and plot of data
 #
 serving <- groundbeef$serving
-# descdist(serving)
+descdist(serving)
 plotdist(serving)
 
 # (3) fit of a Weibull distribution to data

man/toxocara.Rd

@@ -22,7 +22,7 @@ data(toxocara)
 # (2) description and plot of data
 #
 number <- toxocara$number
-# descdist(number, discrete = TRUE, boot = 1000)
+descdist(number, discrete = TRUE, boot = 51)
 plotdist(number, discrete = TRUE)
 
 # (3) fit of a Poisson distribution to data