Nothing
print.ancova <-
function(x,...)
{
cat("Call:\n")
print(x$call)
cat("\n")
if (names(x)[5] == "se") {
df <- data.frame(x$n1, x$n2, x$trDiff, x$se, x$ci.low, x$ci.hi, x$test, x$p.vals)
rownames(df) <- paste(x$cnames[3], "=", x$evalpts)
#colnames(df) <- c(paste("n:", x$faclevels[1]), paste("n:",x$faclevels[2]), "diff", "se", "lower CI", "upper CI", "statistic", "p-value")
colnames(df) <- c("n1", "n2", "diff", "se", "lower CI", "upper CI", "statistic", "p-value")
} else {
df <- data.frame(x$n1, x$n2, x$trDiff, x$ci.low, x$ci.hi, x$test, x$p.vals)
rownames(df) <- paste(x$cnames[3], "=", x$evalpts)
#colnames(df) <- c(paste("n:", x$faclevels[1]), paste("n:",x$faclevels[2]), "diff", "lower CI", "upper CI", "statistic", "p-value")
colnames(df) <- c("n1", "n2", "diff", "lower CI", "upper CI", "statistic", "p-value")
}
print(round(df, 4))
cat("\n")
}
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.