powered by
i1 <- rpf.drm() i1.p <- c(.6,1,.1) theta <- seq(0,3,.05) plot(theta, rpf.info(i1, i1.p, theta), type="l")
Run the code above in your browser using DataLab