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