## 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)
dim(expedia_train)
expedia_train <- subset(expedia_train,is_booking==1)
dim(expedia_train)