powered by
skewSim(X.sim)
X <- RV(c(100000,10000,0), c(0.00025,0.005,0.99475)) X.sim <- rsim(X, 200000) skewSim(X.sim)
Run the code above in your browser using DataLab