# NOT RUN {
## Run Finlay-Wilkinson analysis.
geFW <- gxeFw(TD = TDMaize, trait = "yld")
## Create a scatter plot.
plot(geFW)
## Create a line plot.
plot(geFW, plotType = "line")
## Create a line plot showing observed data value for genotypes and fitted lines.
## Display trials in descending order.
plot(geFW, plotType = "line", order = "descending", response = "observed")
# }
# NOT RUN {
## Create a trellis plot.
plot(geFW, plotType = "trellis")
## Create a scatter plot of fitted values for the worst and best trials.
plot(geFW, plotType = "scatterFit")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab