# NOT RUN {
xy=dmwright2(0.45, 2.5, 1000, 10)
plot(xy[,1], xy[,2], lwd = 2, type="l",ylab="", xlab="x")
mwright2_sided <- rmwright2(1000, 0.45, 2.5)
hist(mwright2_sided, br=30, prob=TRUE)
lines(xy[,1], xy[,2], lwd=2 )
# }
Run the code above in your browser using DataLab