powered by
RRdeterm(mean)
RMmodel
RRdistr(norm(mu=mu, sd=sd, log=log))
set.seed(0) x <- seq(-2, 2, 0.001) p <- RFpdistr(RRdeterm(mean=1), q=x) plot(x, p, type="l")
Run the code above in your browser using DataLab