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