R/write.scaling.factors.R

In iSubGen: Integrative Subtype Generation

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
				);
			}
		}
	}