# Create matrices for combining
irf.matrix <- matrix(runif(25*4), ncol = 4);
rownames(irf.matrix) <- c(paste0('EP00',1:9), paste0('EP0',10:25));
cis.matrix <- matrix(runif(25*6), ncol=6);
rownames(cis.matrix) <- c(paste0('EP00',1:9), paste0('EP0',10:25));
# Example 1: Join the matrices without any weighting adjustments
isubgen.feature.matrix <- combine.integrative.features(
irf.matrix,
cis.matrix
)$integrative.feature.matrix;
# Example 2: Combine matrices after scaling each column by subtracting the mean
# and dividing by the standard devation of the column
isubgen.feature.matrix.rescaled.result <- combine.integrative.features(
irf.matrix,
cis.matrix,
irf.rescale.recenter = 'mean',
cis.rescale.recenter = 'mean',
irf.rescale.denominator = 'sd',
cis.rescale.denominator = 'sd'
);
isubgen.feature.matrix.2 <- isubgen.feature.matrix.rescaled.result$integrative.feature.matrix;
# Example 3: Combine matrices
isubgen.feature.matrix.reweighted.result <- combine.integrative.features(
irf.matrix,
cis.matrix,
irf.weights = 1/4,
cis.weights = 1/6
);
isubgen.feature.matrix.3 <- isubgen.feature.matrix.reweighted.result$integrative.feature.matrix;
Run the code above in your browser using DataLab