R/matrix_intent_mechanism.R
matrix_intent_mechanism.Rd
Add Selected Intents mechanisms combined
matrix_intent_mechanism(data, inj_col, ...)
data | input data |
---|---|
inj_col | ecode and diagnosis column indices |
... | keyword list |
return the input with additional combined intent and mechanism variables
library(dplyr) library(purrr) dat <- data.frame( d1 = c("T63023", "X92821", "X99100", "T360x"), d2 = c("T65823", "Y030x0", "T17200", "V0100x") ) dat %>% matrix_intent_mechanism(inj_col = c(1, 2), "untintentional", "assault")#> d1 d2 Assault_Bites_Stings_venomous Assault_Cut_Pierce #> 1 T63023 T65823 1 0 #> 2 X92821 Y030x0 0 0 #> 3 X99100 T17200 0 1 #> 4 T360x V0100x 0 0 #> Assault_Drowning_Submersion Assault_Fall Assault_Fire_Flame Assault_Firearm #> 1 0 0 0 0 #> 2 1 0 0 0 #> 3 0 0 0 0 #> 4 0 0 0 0 #> Assault_Hot_Object_Substance Assault_MVT_Occupant Assault_MVT_Pedestrian #> 1 0 0 0 #> 2 0 0 1 #> 3 0 0 0 #> 4 0 0 0 #> Assault_Natural_Environmental_Other Assault_Other_Land_Transport #> 1 1 0 #> 2 0 0 #> 3 0 0 #> 4 0 0 #> Assault_Other_Specified_Child_Adult_Abuse #> 1 0 #> 2 0 #> 3 0 #> 4 0 #> Assault_Other_Specified_Classifiable Assault_Other_Specified_NEC #> 1 0 0 #> 2 0 0 #> 3 0 0 #> 4 0 0 #> Assault_Other_Transport Assault_Poisoning_Drug Assault_Poisoning_Non_drug #> 1 0 0 0 #> 2 0 0 0 #> 3 0 0 0 #> 4 0 0 0 #> Assault_Struck_by_against Assault_Suffocation Assault_Unspecified #> 1 0 0 0 #> 2 0 0 0 #> 3 0 0 0 #> 4 0 0 0