# NOT RUN {
library(metan)
matrix = data_ge %>% make_mat(row = GEN, col = ENV, val = GY)
matrix
# An own function (sem, standart error of mean)
sem = function(data){
return(sd(data) / sqrt(length(data)))
}
data_ge %>% make_mat(GEN, ENV, GY, sem)
# }
Run the code above in your browser using DataLab