Nothing
print.fabatch <-
function(x, ...) {
cat("'FAbatch'-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")
cat(paste("Number(s) of factors (within each batch): ", paste(x$nbfvec, collapse=", "), 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.