R/write.scaling.factors.R

In iSubGen: Integrative Subtype Generation

write.scaling.factors <- function(scaling.factors, 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
				);
			}
		}
	}