# NOT RUN {
library(metan)
maha <- mahala_design(data_g,
gen = GEN,
rep = REP,
resp = everything(),
return = "covmat")
# Compute one distance for each environment (all numeric variables)
maha_group <- mahala_design(data_ge,
gen = GEN,
rep = REP,
resp = 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