new examples for the logo

Author: Marie-Laure DELIGNETTE-MULLER

share/fig4logo.r

@@ -18,3 +18,22 @@ cdfcompcens(list(fitln, fitw, fitg), main = "",
             fitcol = c("blue", "orange", "green"), 
             fitlty = c(1, 1, 1), fitlwd = c(2, 2, 2),
             xlogscale = TRUE)
+
+
+## another example
+data(groundbeef)
+x1 <- groundbeef$serving[1:50]
+f1 <- fitdist(x1, "gamma")
+b1 <- bootdist(f1, niter=51)
+print(b1)
+plot(b1)
+plot(b1, enhance=TRUE)
+summary(b1)
+quantile(b1)
+par(bg = "black")
+CIcdfplot(b1, CI.output = "quantile", xlim = c(10, 140),
+          CI.col = "red",fitlwd = 2, datacol = "yellow", CI.fill = "orange")
+
+CIcdfplot(b1, CI.output = "quantile", xlim = c(10, 140),
+          CI.col = "darkblue",fitlwd = 2, datacol = "snow",
+          fitcol = "darkblue", CI.fill = "lightblue")