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