score.R - script used in Building and Using Models in DeployR Tutorial

score.R

library(deployrUtils)
deployrPackage("rpart")

# load the model
if (!exists("model")) load(file="model.rData")

# provide some values for an observation to be scored
deployrInput('{"name": "balance","render": "numeric","default": 2000}')
deployrInput('{"name": "numTrans","render": "numeric","default": 10}')
deployrInput('{"name": "creditLine","render": "numeric","default": 18}')

# create a data.frame
obs <- data.frame(balance, numTrans, creditLine)

# score the observation and report the predicted value
Prediction <- predict(model, obs) 
Prediction