Skip to content
Jump to bottom

update prediction data #57

Merged
merged 3 commits into from Oct 28, 2021
+7 −6
Merged

update prediction data #57

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
f0611ce
update file to current version
chenc29 Sep 16, 2021
c9bc90a
Merge branch 'master' of https://github.rpi.edu/DataINCITE/IDEA-COVID…
chenc29 Sep 16, 2021
0a97d46
update prediction data
chenc29 Oct 28, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
13 changes: 7 additions & 6 deletions read_wapData.R
View file
Open in desktop
Expand Up @@ -50,7 +50,7 @@ rpi_wap_stats <- readRDS("../COVID_RPI_WiFi_Data/rpi_wifi_semester_day_summary.r
#buildinginfo <- readRDS("../COVID_RPI_WiFi_Data/buildinginfo.rds")

#user_prediction: Building, weekday, Hour, users, Mean_Usercount, latitude, longitude, buildingType
user_predictions <- readRDS("../COVID_RPI_WiFi_Data/rpi_user_predictions.rds")
user_predictions <- readRDS("../COVID_RPI_WiFi_Data/median_last3wks_with_floors.rds")

################################################################################################################
###CLEANING DATA
Expand Down Expand Up @@ -81,12 +81,13 @@ hits_per_wap_semester_by_building_max <- hits_per_wap_semester_by_building_max %
hits_per_wap_semester_by_building_max <- hits_per_wap_semester_by_building_max %>% group_by(Building) %>% summarise_all(funs(max)) %>% ungroup() %>% select(Building, usercount_max)
colnames(hits_per_wap_semester_by_building_max) <- c('Building', 'capacity')

user_predictions <- user_predictions %>%
dplyr::group_by(Building, Weekday, Hour, lat, lng, BuildingType) %>%
dplyr::summarize(totalusers = sum(users)) %>%
ungroup()

#user_predictions <- user_predictions %>% mutate(Hour = hour(as.POSIXct(time))) %>% select(Building, Median_Usercount, Mean_Usercount, Hour, latitude, longitude, buildingType, weekday)
user_predictions <- user_predictions %>% group_by(Building, Hour, latitude, longitude, buildingType, weekday) %>% ungroup()
colnames(user_predictions) <- c('Building', 'weekday', 'Hour','users', 'Mean_Usercount' ,'lat','lng', 'BuildingType')
user_predictions <- user_predictions %>% filter(BuildingType != "housing" & BuildingType != "greek") %>%
filter(!(Building %in% remove_list))
names(user_predictions)[names(user_predictions) == 'Weekday'] <- 'weekday'
names(user_predictions)[names(user_predictions) == 'totalusers'] <- 'users'

################################################################################################################
## DEFININING LISTS AND DATA FRAMES FOR CONVENIENCE
Expand Down