Nothing
# New function in 2018 used to add names to the output from manova5050(), rotationtests() and unitests()
# and thus all output from ffmanova().
addNames <- function(x, rowNames, colNames = NULL, residNames = "Residuals") {
allTermNames <- c(rowNames, residNames)
for (i in seq_len(length(x))) {
if (is.matrix(x[[i]])) {
rownames(x[[i]]) <- rep_len(allTermNames, NROW(x[[i]]))
if (!is.null(colNames)) {
colnames(x[[i]]) <- rep_len(colNames, NCOL(x[[i]]))
}
} else {
if (!is.logical(x[[i]]))
names(x[[i]]) <- rep_len(allTermNames, length(x[[i]]))
}
}
x
}
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.