########## asreml diagnostics
AsDiagnostics<-function(model){
par(ask=F,mfrow=c(1,2))
plot(AsYoung$fitted.values,AsYoung$residuals)
plot(AsYoung$residuals[order(AsYoung$residuals)])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.