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