From a7bc16be1ecde397df0ca86e0ef00cdf83a83bde Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Aur=C3=A9lie=20Siberchicot?=
 <aurelie.siberchicot@univ-lyon1.fr>
Date: Tue, 30 Jan 2024 21:52:17 +0100
Subject: [PATCH] Update the 'descdist' help file

---
 man/descdist.Rd | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

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 }