#
# Data load
#
all_data <- read.csv("~/training_data_num.csv")

#
# Split the data
#   9 months as training and 3 months as test
#
train_data <- all_data[1:169,]
test_data <- all_data[170:218,]

#
# Split order for 5-fold cross-validation
#   i.e. train and validation within loop
#
set.seed(1)
folds_in_cv <- 5
train_count <- nrow(train_data)
validate_count <- floor(train_count / folds_in_cv)
sample_order <- sample(1:train_count, train_count)

#
# Library import for AUC calculation
#
library(ROCR)