if (FALSE) {
# Backward compatible - existing code unchanged
set.seed(123)
X <- matrix(rnorm(1000), ncol = 10)
result_original <- bdCorr_matrix(X)
# Create omics-style data
gene_expr <- matrix(rnorm(5000), nrow = 100, ncol = 50) # 100 samples × 50 genes
# Gene-gene correlations (variables)
gene_corr <- bdCorr_matrix(gene_expr, trans_x = FALSE)
# Sample-sample correlations (individuals)
sample_corr <- bdCorr_matrix(gene_expr, trans_x = TRUE)
# Cross-correlation examples
methylation <- matrix(rnorm(4000), nrow = 100, ncol = 40) # 100 samples × 40 CpGs
# Variables vs variables (genes vs CpGs)
vars_vs_vars <- bdCorr_matrix(gene_expr, methylation,
trans_x = FALSE, trans_y = FALSE)
# Samples vs variables (individuals vs CpGs)
samples_vs_vars <- bdCorr_matrix(gene_expr, methylation,
trans_x = TRUE, trans_y = FALSE)
}
Run the code above in your browser using DataLab