# NOT RUN {
promote.config <- c(
username = "your username",
apikey = "your apikey",
env = "http://sandbox.promotehq.com/"
)
iris$Sepal.Width_sq <- iris$Sepal.Width^2
fit <- glm(I(Species)=="virginica" ~ ., data=iris)
model.predict <- function(df) {
data.frame("prediction"=predict(fit, df, type="response"))
}
# }
# NOT RUN {
promote.library("randomForest")
promote.deploy("irisModel")
# }
Run the code above in your browser using DataLab