Nothing
print.ntestRes <-
function(x, ...){
cat("Pearson's Chi-squared test for normality of residuals\n")
t <- as.data.frame(cbind(x$p.value.res1,x$p.value.res2))
rownames(t) <- "p.value"
colnames(t) <- c("time = 1", "time = 2")
print(t)
}
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.