This package illustrates how to deploy a model for remote scoring/prediction.
# Install in R
library(devtools)
install_github("ReportMort/beard")
# Score in R
library(beard)
mydata <- data.frame(year=c(1890))
beard(input = mydata)
# Score remotely
curl https://public.opencpu.org/ocpu/github/ReportMort/beard/R/beard/json \
-H "Content-Type: application/json" \
-d '{"input" : [ {"year":1914} ]}'
# Score using Vagrant and Virtualbox
# First setup virtual machine, copy package to it, ssh into it and install, and run curl against that machine
scp -P 2222 /cygdrive/c/users/steven.mortimer/documents/personal-github/beard_0.0.tar.gz vagrant@127.0.0.1:~/.
vagrant ssh
sudo R CMD INSTALL beard_0.0.tar.gz --library=/usr/local/lib/R/site-library
curl http://10.68.12.119/ocpu/library/beard/R/beard/json \
-H "Content-Type: application/json" \
-d '{"input" : [ {"year":1914} ]}'
# Score from R using RCurl
library(RCurl)
library(RJSONIO)
res <- postForm("https://public.opencpu.org/ocpu/github/ReportMort/beard/R/beard/json",
.opts = list(postfields = toJSON(list(input=list(year=1890))),
httpheader = c('Content-Type' = 'application/json', Accept = 'application/json'),
ssl.verifypeer = FALSE))
fromJSON(res)
The model is included in the data directory of the package, and was created
using the createmodel.R script. It predicts in the early 20th century the prevelance of beards among men.