inst/snippet/glm-orings-ci.R

s <- summary(orings.model)
sqrt(diag(s$cov.unscaled)) -> st.err; st.err
coef(orings.model)[2] + c(-1,1) * st.err[2] * qnorm(0.975)
exp(coef(orings.model)[2] + c(-1,1) * st.err[2] * qnorm(0.975))

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.