Nothing
ci.mat <-
function( alpha=0.05, df=Inf )
{
ciM <- rbind( c(1,1,1), qt(1-alpha/2,df)*c(0,-1,1) )
colnames( ciM ) <- c("Estimate",
paste( formatC( 100* alpha/2 , format="f", digits=1 ), "%", sep="" ),
paste( formatC( 100*(1-alpha/2), format="f", digits=1 ), "%", sep="" ) )
ciM
}
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.