Unify AR iOS walking and running conversion

pull/103/head
JulioV 2020-10-26 15:44:09 -04:00
parent 234588c94d
commit e10e030baf
1 changed files with 4 additions and 2 deletions

View File

@ -112,11 +112,13 @@ unify_ios_activity_recognition <- function(ios_gar){
ios_gar <- ios_gar %>% ios_gar <- ios_gar %>%
mutate(activity_name = case_when(activities == "automotive" ~ "in_vehicle", mutate(activity_name = case_when(activities == "automotive" ~ "in_vehicle",
activities == "cycling" ~ "on_bicycle", activities == "cycling" ~ "on_bicycle",
activities == "walking" | activities == "running" ~ "on_foot", activities == "walking" ~ "walking",
activities == "running" ~ "running",
activities == "stationary" ~ "still"), activities == "stationary" ~ "still"),
activity_type = case_when(activities == "automotive" ~ 0, activity_type = case_when(activities == "automotive" ~ 0,
activities == "cycling" ~ 1, activities == "cycling" ~ 1,
activities == "walking" | activities == "running" ~ 2, activities == "walking" ~ 7,
activities == "running" ~ 8,
activities == "stationary" ~ 3, activities == "stationary" ~ 3,
activities == "unknown" ~ 4)) activities == "unknown" ~ 4))