## Example
## X <- rgamma(100,1,4)
## par(mfrow=c(2,2))
## fctgeneral(Data=X,Law=("exp"))
## fctgeneral(Data=X,Law=("GAmma"))
## fctgeneral(Data=X,Law=("weibull"))
## fctgeneral(Data=X,Law=("Normlog"))
Run the code above in your browser using DataLab