# \donttest{
library(SpATS)
library(agriutilities)
data(wheatdata)
wheatdata$R <- as.factor(wheatdata$row)
wheatdata$C <- as.factor(wheatdata$col)
m1 <- SpATS(
response = "yield",
spatial = ~ PSANOVA(col, row, nseg = c(10, 20), nest.div = 2),
genotype = "geno",
genotype.as.random = TRUE,
fixed = ~ colcode + rowcode,
random = ~ R + C,
data = wheatdata,
control = list(tolerance = 1e-03, monitoring = 0)
)
h_cullis_spt(m1)
# }
Run the code above in your browser using DataLab