# NOT RUN {
obs<-c(1:10)
pred<-c(1, 1 ,3, 5, 4, 5, 6, 8, 11, 10)
t1='Measured variable (unit)'
evalue<-round(e(o=obs, p=pred),2)
maevalue<-round(mae(o=obs, p=pred),1)
t2=paste('E = ', evalue, '; MAE = ', maevalue, ' units')
valplot(o=obs, p=pred, main=t1, sub=t2)
# }
Run the code above in your browser using DataLab