Nothing
write.scaling.factors <- function(scaling.factors, scaling.factor.files.dir=NULL) {
if(!is.null(scaling.factor.files.dir) & !any(grep('/$',scaling.factor.files.dir))) {
scaling.factor.files.dir <- paste0(scaling.factor.files.dir,'/');
}
# write two files for each data type, one for the center values and one for the scale values
for(data.type in names(scaling.factors)) {
for(x in c('center','scale')) {
write.table(
t(as.data.frame(scaling.factors[[data.type]][[x]])),
paste0(scaling.factor.files.dir,data.type,'_gene_re',x,'.txt'),
quote = FALSE,
sep = '\t',
col.names = TRUE,
row.names = FALSE
);
}
}
}
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.