# NOT RUN {
# }
# NOT RUN {
# make a sample model
library(gbm)
library(pmml)
data(audit)
mod<-gbm(Adjusted~.,data=audit[,-c(1,4,6,9,10,11,12)],n.trees=3,interaction.depth=4)
pmod <- pmml(mod)
# Save to an external file
savePMML(pmod, "GBMModel.pmml")
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace