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