inst/snippet/mle-faithful2.R

# seed the algorithm  
m <- mean(faithful$eruptions)
s <- sd(faithful$eruptions)

mle <- nlmax(loglik,p=c(0.5,m,m,s,s),x=faithful$eruptions)$estimate
mle

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 2, 2019, 5:53 p.m.