## R version of most popular local hotels
library(data.table)
expedia_train <- fread('../input/train.csv', header=TRUE)
expedia_test <- fread('../input/test.csv', header=TRUE)

names(expedia_train)
unique(expedia_train$is_booking)
unique(expedia_test$is_booking)