Nothing
## File Name: in_CI.R
## File Version: 0.05
in_CI <- function( est, se, true, level=.95, df=Inf)
{
quant <- - stats::qt( (1-level)/2, df=df)
in_ci <- ( est - quant * se < true ) & ( est + quant * se > true )
return(in_ci)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.