inst/snippet/mom-beta01a.R

# algebraic solutions
x.bar <- mean(x); x.bar
v <- var(x) * (length(x) - 1) / length(x); v
x.bar*( x.bar*(1-x.bar)/v - 1 );            # alpha=shape1
(1-x.bar) * ( x.bar*(1-x.bar)/v - 1);       # beta=shape2

Try the fastR package in your browser

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

fastR documentation built on May 1, 2019, 11:18 p.m.