Nothing
print.standardize <-
function(x, ...) {
cat("'Standardization'-adjusted training data with information for addon batch effect adjustment.", "\n")
cat(paste("Number of batches: ", x$nbatches, sep=""), "\n")
cat(paste("Number(s) of observations (within each batch): ", paste(as.vector(table(x$batch)), collapse=", "), sep=""), "\n")
cat(paste("Number of variables: ", ncol(x$xadj), sep=""), "\n")
}
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.