Nothing
print.nparLD<-function(x, ...)
{
a<-x$input
new.object<-nparLD(formula=a$formula,data=a$data,subject=a$subject,
description=FALSE,time1.order=a$time1.order,time2.order=a$time2.order,group1.order=a$group1.order,
group2.order=a$group2.order,plot.CI=FALSE,alpha=a$alpha,show.covariance=a$show.covariance,order.warning=FALSE)
cat("Model:","\n")
cat(new.object$model.name,"\n","\n")
cat("Call:","\n")
print(a$formula)
cat("\n","Wald-Type Statistc (WTS):","\n",sep="")
print(new.object$Wald.test)
cat("\n","ANOVA-Type Statistc (ATS):","\n",sep="")
print(new.object$ANOVA.test)
if(!is.null(new.object$ANOVA.test.mod.Box))
{
cat("\n","Modified ANOVA-Type Statistic for the Whole-Plot Factors:","\n",sep="")
print(new.object$ANOVA.test.mod.Box)
}
summarylist<-new.object
}
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.