# Create sample correlation data frame
corr_df <- data.frame(
H1 = c(1, 1, 2, 1, 2, 2),
H2 = c(1, 2, 2, 1, 1, 2),
Analysis1 = c(1, 1, 1, 2, 2, 2),
Analysis2 = c(1, 1, 1, 2, 2, 2),
Correlation = c(1, 0.5, 1, 1, 1, 1)
)
corr_matrix <- gen_corr(corr_df, M = 2, K = 2)