# NOT RUN {
library(crmReg)
data(topgear)
train <- topgear[1:200, ]
test <- topgear[201:245, ]
crmfit <- crm(formula = MPG ~ ., data = train, seed = 2020)
estimated_MPG_test <- predict(crmfit, newdata = test)
plot(test$MPG, estimated_MPG_test, xlab = "True MPG", ylab = "Estimated MPG")
abline(a = 0, b = 1)
# }
Run the code above in your browser using DataLab