# NOT RUN {
library(metan)
maha_group <- mahala_design(data_ge,
gen = GEN,
rep = REP,
resp = c(GY, HM))
# Compute one distance for each environment
maha_group <- mahala_design(data_ge, GEN, REP, everything(), by = ENV)
# Return the variance-covariance matrix of residuals
cov_mat <- mahala_design(data_ge,
gen = GEN,
rep = REP,
resp = c(GY, HM),
return = 'covmat')
# }
Run the code above in your browser using DataLab