inst/snippet/mle-unif01-fig.R

L <- function(theta) { (1 / theta)^6 * (theta >= 8.7) }
plotFun(L(theta) ~ theta, theta.lim = c(6, 15),
        xlab = expression(theta), ylab = expression(L(theta)))
rpruim/fastR2 documentation built on Nov. 11, 2023, 7:32 a.m.