if (FALSE) {
G.dat <- convEffectNames2DataFrame(m1.asr, term = "Row:Column", use = "G.aom")
G.dat <- lapply(c("at(Smarthouse, 'SW'):Lane:Position",
"at(Smarthouse, 'SE'):Lane:Position"),
function(term, asreml.obj)
tmp <- convEffectNames2DataFrame.asreml(asreml.obj, term = term),
asreml.obj = m1.asr)
G.dat <- do.call(rbind, G.dat)
}
Run the code above in your browser using DataLab