inst/examples/tfestimators/train.R

In rstudio/cloudml: Interface to the Google Cloud Machine Learning Platform

library(tfestimators)

FLAGS <- flags(
  flag_numeric("num_epochs", 10)
)

mtcars_input_fn <- function(data, num_epochs = 1) {
  input_fn(data,
           features = c("disp", "cyl"),
           response = "mpg",
           batch_size = 32,
           num_epochs = num_epochs)
}

cols <- feature_columns(
  column_numeric("disp"),
  column_numeric("cyl")
)


model <- linear_regressor(feature_columns = cols)

indices <- sample(1:nrow(mtcars), size = 0.80 * nrow(mtcars))
train <- mtcars[indices, ]
test  <- mtcars[-indices, ]

model %>% train(mtcars_input_fn(train, num_epochs = FLAGS$num_epochs))

model %>% evaluate(mtcars_input_fn(test))

obs <- mtcars[1:3, ]
model %>% predict(mtcars_input_fn(obs))

export_savedmodel(model, export_dir_base = "savedmodel")