if (FALSE) {
library(agridat)
data(linder.wheat)
dat <- linder.wheat
libs(gge)
dat <- transform(dat, eb=paste0(env,block))
m1 <- gge(dat, yield~gen*eb, env.group=env)
biplot(m1, main="linder.wheat")
}
Run the code above in your browser using DataLab