# NOT RUN {
library(agridat)
data(linder.wheat)
dat <- linder.wheat
# }
# NOT RUN {
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