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/fastR documentation built on Nov. 12, 2023, 12:26 p.m.