Var.pred <- predict(current.asr, classify="Variety", sed=TRUE)$predictions
wald.tab <- current.asrt$wald.tab
den.df <- wald.tab[match("Variety", rownames(wald.tab)), "denDF"]
Var.diffs <- alldiffs(predictions = Var.pred$pvals,
sed = Var.pred$sed,
tdf = den.df)
Var.diffs <- predictiondiffs.asreml(classify = "Variety",
alldiffs.obj=Var.diffs)
print.alldiffs(Var.diffs, which="differences")Run the code above in your browser using DataLab