# NOT RUN {
library(metan)
means_ge <- ge_means(data_ge, ENV, GEN, resp = everything())
# Genotype-environment interaction means
get_model_data(means_ge)
# Environment means
get_model_data(means_ge, what = "env_means")
# Genotype means
get_model_data(means_ge, what = "gen_means")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab