{"cells":[{"metadata":{"trusted":true},"cell_type":"code","source":"### Setting\nlibrary(data.table)\nlibrary(dplyr)\n\nnthreads <- 3","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"### Read Data\ntrain <- fread(\n  \"/kaggle/input/ashrae-energy-prediction/train.csv\",\n  header = TRUE, stringsAsFactors = FALSE, encoding = \"UTF-8\", nThread = nthreads)\n\ntest <- fread(\n  \"/kaggle/input/ashrae-energy-prediction/test.csv\",\n  header = TRUE, stringsAsFactors = FALSE, encoding = \"UTF-8\", nThread = nthreads)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"### Make Mean Data\npred <- train %>%\n  dplyr::mutate(\n    d_week = weekdays(as.Date(timestamp)),\n    hour = substr(timestamp, 12, 13)) %>%\n  dplyr::group_by(building_id, meter, hour, d_week) %>%\n  dplyr::summarise(y_mean = mean(log(meter_reading + 1))) %>%\n  dplyr::ungroup(.)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"### Check Train RMSLE\ncheck <- train %>%\n  dplyr::mutate(\n    d_week = weekdays(as.Date(timestamp)),\n    hour = substr(timestamp, 12, 13)) %>%\n  dplyr::inner_join(pred, by = c(\"building_id\", \"meter\", \"hour\", \"d_week\"))\n\nsqrt(mean((check$y_mean - log(check$meter_reading + 1)) ** 2))","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"### Predict\nsubmit <- test %>%\n  dplyr::mutate(\n    d_week = weekdays(as.Date(timestamp)),\n    hour = substr(timestamp, 12, 13)) %>%\n  dplyr::inner_join(pred, by = c(\"building_id\", \"meter\", \"hour\", \"d_week\")) %>%\n  dplyr::mutate(\n    meter_reading = exp(y_mean) - 1) %>%\n  dplyr::select(row_id, meter_reading)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"### Output\nfwrite(\n  submit, file = \"submit.csv\",\n  sep = \",\", col.names = TRUE, row.names = FALSE, quote = FALSE, nThread = nthreads)","execution_count":null,"outputs":[]}],"metadata":{"kernelspec":{"display_name":"R","language":"R","name":"ir"},"language_info":{"mimetype":"text/x-r-source","name":"R","pygments_lexer":"r","version":"3.4.2","file_extension":".r","codemirror_mode":"r"}},"nbformat":4,"nbformat_minor":1}