Remove the need to use the 'alpha' function

lbbe-software · Jan 26, 2024 · 5a3bf8f · 5a3bf8f
1 parent f5a892b
commit 5a3bf8f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/descdist.R b/R/descdist.R
@@ -197,7 +197,7 @@ descdist <- function(data, discrete = FALSE, boot = NULL, method = "unbiased",
       points(s2boot,kurtmax-kurtboot,pch=1,col=boot.col,cex=0.5)
     } 
     # observed distribution
-    points(skewness(data)^2,kurtmax-kurtosis(data),pch=obs.pch,cex=2,col=alpha(obs.col, 0.7))
+    points(skewness(data)^2,kurtmax-kurtosis(data),pch=obs.pch,cex=2,col=obs.col)
     # norm dist
     points(0,kurtmax-3,pch=8,cex=1.5,lwd=2)
     if (!discrete) {