if (FALSE) {
library(agridat)
data(tai.potato)
dat <- tai.potato
libs(lattice)
dotplot(variety ~ yield|env, dat, main="tai.potato")
# fixme - need to add tai() example
# note, st4gi::tai assumes there are replications in the data
# https://github.com/reyzaguirre/st4gi/blob/master/R/tai.R
}
Run the code above in your browser using DataLab