## Fit model using SpATS.
modSp <- fitTD(TD = TDHeat05,
design = "res.rowcol",
traits = "yield",
what = "fixed")
## Create cross object with BLUEs from modSp using genotypic information
## from markers.csv in the package.
cross <- STAtoCross(modSp,
genoFile = system.file("extdata", "markers.csv",
package = "statgenSTA"))
Run the code above in your browser using DataLab