Uncomment the 'descdist' help page

man/descdist.Rd

@@ -101,33 +101,33 @@ Marie-Laure Delignette-Muller and Christophe Dutang.
 #
 set.seed(1234)
 x1 <- rnorm(100)
-# descdist(x1)
-# descdist(x1,boot=100)
+descdist(x1)
+descdist(x1,boot=100)
 
 # (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,
-# obs.col="blue", obs.pch = 15, boot.col="darkgreen")
+descdist(rbeta(100,shape1=0.05,shape2=1),boot=100,
+ 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),boot=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=100)
 
 # (4) Description of serving size data
 # with uncertainty on skewness and kurtosis estimated by bootstrap 
 #
-# data(groundbeef)
-# serving <- groundbeef$serving
-# descdist(serving, boot=100)
+data(groundbeef)
+serving <- groundbeef$serving
+descdist(serving, boot=100)
 }
 
 \keyword{ distribution }