Nothing
coefTable <- function( coef, stdErr, df = NULL ) {
result <- cbind(
coef,
stdErr,
coef / stdErr,
rep( NA, length( coef ) ) )
if( !is.null( df ) ) {
result[ , 4 ] <- 2 * pt( abs( coef / stdErr ), df, lower.tail = FALSE )
}
colnames( result ) <- c( "Estimate", "Std. Error", "t value", "Pr(>|t|)" )
if( !is.null( names( coef ) ) ) {
rownames( result ) <- names( coef )
}
return( result )
}
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.