ben/wisconsin_crashes
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added MilWAUKeeWalks.Rmd

Browse source
This commit is contained in:
Ben Varick 2025-09-19 15:22:08 -07:00
parent 486ad2533c
commit e71f197046
Signed by: ben
SSH key fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
2 changed files with 350 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/TOPS_data_process.Rmd
View file

@ -86,7 +86,8 @@ TOPS_data <- TOPS_data %>% mutate(ped_inj = ifelse(ROLE1 %in% vuln_roles,
INJSVR1,
ifelse(ROLE2 %in% vuln_roles,
INJSVR2,
NA)))
NA))) %>%
mutate(ped_age = ifelse(ROLE1 %in% vuln_roles, age1, age2))
TOPS_data <- left_join(TOPS_data, injury_severity %>% select(InjSevName, code), join_by(ped_inj == code)) %>%
mutate(InjSevName = factor(InjSevName, levels = injury_severity$InjSevName)) %>%