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


head(expedia_train)