duke_auth <- list(
user_name = "try_it",
api_key = "db1542b66f16aba5768d8a19c27dec4facf9168a",
endpoint = "/api/v1.0"
)
example_data <- as.data.frame(cbind(gl(3,50),rnorm(150)));names(example_data) <- c("x","y")
example_fit <- lm(y~x,data=example_data)
duke_deploy(auth_details=duke_auth,model_object=example_fit)
Run the code above in your browser using DataLab