Skip to content

Instantly share code, notes, and snippets.

@actsasflinn
actsasflinn / xgboost2.R
Created January 3, 2017 11:21
XGBoost using caret
library(xgboost)
library(caret)
setwd("~/Projects/xgboost_test")
train_file = "train_data"
if (!file.exists(train_file)) {
download.file("https://archive.ics.uci.edu/ml/machine-learning-databases/adult/adult.data", train_file)
}
test_file = "test_data"
if (!file.exists(test_file)) {
library(jug)
library(xgboost)
library(Matrix)
setwd("~/Projects/xgboost_test")
model <- xgb.load("xgboost1.save")
jug() %>%
get("/model/(?<age>.*)/(?<workclass>.*)/(?<education>.*)/(?<marital_status>.*)/(?<occupation>.*)/(?<relationship>.*)/(?<gender>.*)", function(req, res, err){
df <- data.frame(
module Inflector
extend self
class Inflections
getter :plurals, :singulars, :uncountables, :humans, :acronyms, :acronym_regex
def initialize
@plurals = {
/$/ => "s",
/s$/i => "s",