library(agridat)
data(denis.ryegrass)
dat <- denis.ryegrass
# biplots (without ellipses) similar to Denis figure 1
libs(gge)
m1 <- gge(dat, strength ~ gen*loc, scale=FALSE)
biplot(m1, main="denis.ryegrass biplot")
Run the code above in your browser using DataLab