# NOT RUN {
data(ames)
ames.sample <- sample(nrow(ames), nrow(ames) * 0.75)
ames <- prim.data.prepare(ames)
ames.model <- prim(SalePrice ~ . - PID - Order, ames[ames.sample,])
ames.predict <- predict(ames.model, ames[-ames.sample,])
plot(ames.model)
plot(ames.predict)
# }
Run the code above in your browser using DataLab