obs <- runif(2,0.5,4.5)
theta <- sum(obs)/2 <- dexp(obs[1], rate = 1/theta)*dexp(obs[2], rate = 1/theta)

Ok, Tell Me If You've Heard This One Before...

The Exponential distribution

Try the teachingApps package in your browser

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

teachingApps documentation built on July 1, 2020, 5:58 p.m.