# NOT RUN {
library(metan)
set.seed(1)
mat <- matrix(rnorm(9, 2530, 350), ncol = 3)
colnames(mat) <- paste("E", 1:3, sep = "")
rownames(mat) <- paste("G", 1:3, sep = "")
make_long(mat)
gen_cols <- t(mat)
make_long(gen_cols, gen_in = "cols")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab