inst/snippets/sample.R

f1 <- makeFun(qnorm(.99) * sqrt(.5 * .5/ n) - 0.03 ~ n)
uniroot(f1, c(1,50000))$root
f2 <- makeFun(qnorm(.975) * sqrt(.5 * .5/ n) - 0.005 ~ n)
uniroot(f2, c(1,50000))$root
f3 <- makeFun(qnorm(.99) * sqrt(.1 * .9/ n) - 0.005 ~ n)
uniroot(f3, c(1,50000))$root

Try the Lock5withR package in your browser

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

Lock5withR documentation built on May 2, 2019, 3:43 p.m.