if (FALSE) {
library(asreml)
oats <- asreml::oats
oats <- oats[order(oats$Row, oats$Column),]
model.asr <- asreml(yield ~ Nitrogen + Variety + Nitrogen:Variety,
random = ~ Blocks + Blocks:Wplots,
residual = ~ ar1(Row):ar1(Column),
data = oats)
variogram(model.asr)
}
Run the code above in your browser using DataLab