set.seed(123)
cor_in <- data.frame(row = rep(letters[1:10], each = 5),
col = rep(LETTERS[1:5], 10),
val = rnorm(50))
# Wide format output (default)
corr_wide <- cor_long(cor_in, row, col, val)
# Long format output
corr_long <- cor_long(cor_in, row, col, val,
out_format = "long")
# Correlation between two matrices
cor_in2 <- data.frame(rows = rep(letters[1:10], each = 10),
cols = rep(letters[1:10], 10),
values = rnorm(100))
corr2 <- cor_long(cor_in, row, col, val,
cor_in2, rows, cols, values)
Run the code above in your browser using DataLab