data(SkiExperts)
# Visualising
with(SkiExperts,plot(paired(Actual,Imaginary),type="profile"))
# No underestimation of imaginary time for experts
with(SkiExperts,t.test(paired(Actual,Imaginary)))
# But a very interesting increase in dispersion in their
# predicted times
with(SkiExperts,var.test(paired(Actual,Imaginary)))
Run the code above in your browser using DataLab