Nothing
print.TransModel <-
function(x,...){
cat("Call:\n")
print(x$call)
if(x$p==0){
cat("No covariates/ null model.","\n")
}
if(x$p>0){
cat("\nCoefficients:\n")
print(x$coefficients)
cat("\nCovariance Matrix:\n")
print(x$vcov)
}
class(x)<-"TransModel"
}
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.