Update the 'descdist' help page

man/descdist.Rd

@@ -101,35 +101,33 @@ Marie-Laure Delignette-Muller and Christophe Dutang.
 #
 set.seed(1234)
 x1 <- rnorm(100)
-\donttest{
 descdist(x1)
-descdist(x1,boot=51)
+descdist(x1,boot=11)
 
 # (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=101,
+descdist(rbeta(100,shape1=0.05,shape2=1),boot=11,
  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=101,graph=FALSE)
+descdist(rgamma(100,shape=2,rate=1),boot=11,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=101)
+descdist(rpois(100,lambda=2),discrete=TRUE,boot=11)
 
 # (4) Description of serving size data
 # with uncertainty on skewness and kurtosis estimated by bootstrap 
 #
 data(groundbeef)
 serving <- groundbeef$serving
-descdist(serving, boot=101)
-}
+descdist(serving, boot=11)
 }
 
 \keyword{ distribution }