# NOT RUN {
## Run a single trait analysis using SpATS.
myModel <- fitTD(TD = TDHeat05, design = "res.rowcol", traits = "yield")
## Create base plots.
plot(myModel, what = "fixed", plotType = "base")
## Create spatial plots.
plot(myModel, what = "fixed", plotType = "spatial")
## Create spatial plots showing the spatial trend as percentage.
plot(myModel, what = "fixed", plotType = "spatial", spaTrend = "percentage")
# }
Run the code above in your browser using DataCamp Workspace