Nothing
print.pcovr <-
function(x, ...){
cat("Loading matrix:\n")
srt <- SortLoadings(x$Px)
print(t(srt))
cat("\nRegression weight matrix:\n")
print(t(x$Py))
cat("\nExplained variance in X:",x$Rx2,"\n")
cat("\nExplained variance in Y:",x$Ry2,"\n")
if (x$modsel=="sim"){
cat("\nCross-validation fit:\n")
print(x$Qy2)
}
if (x$modsel=="seq"){
cat("\nWeighted variance accounted for:\n")
print(x$VAFsum)
}
if (x$modsel=="seqAcv"){
cat("\nWeighted variance accounted for:\n")
print(x$VAFsum)
cat("\nCross-validation fit:\n")
print(x$Qy2)
}
if (x$modsel=="seqRcv"){
cat("\nCross-validation fit:\n")
print(x$Qy2)
}
}
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.