R/calculate.scaling.R

In iSubGen: Integrative Subtype Generation

calculate.scaling <- function(data.matrices) {
	# if there is only one data type to scale
	if (is.matrix(data.matrices) || is.data.frame(data.matrices)) {
		# return the mean and sd of each row
		return(list(
			center = apply(data.matrices, 1, mean),
			scale = apply(data.matrices, 1, sd)
			))
		}
	if (is.list(data.matrices)) {
		# if there are multiple data types to scale
		# return the mean and sd of each row for each data matrix
		scaling.factors <- list();
		for (data.type in names(data.matrices)) {
			scaling.factors[[data.type]] <- calculate.scaling(data.matrices[[data.type]]);
			}
		return(scaling.factors);
		}
	# if `data.matrices` is not a list, a matrix, or a data frame, return an error message to let the user know how to correct the input
	stop('`data.matrices` must be a matrix, a data frame, or a list of matrices or data frames');
	}