Add Selected Intents

Add Selected Intents

matrix_intent(data, inj_col, ...)

Arguments

data	input data
inj_col	ecode and diagnosis column indices
...	keyword list

Value

return the input with additional intent variables

Examples

library(dplyr)
library(purrr)
dat <- data.frame(
  d1 = c("T63023", "X92821", "X99100", "T360x"),
  d2 = c("T65823", "Y030x0", "T17200", "V0100x")
)

dat %>% matrix_intent(inj_col = c(1, 2), "untintentional", "assault")
#>       d1     d2 Assault
#> 1 T63023 T65823       1
#> 2 X92821 Y030x0       1
#> 3 X99100 T17200       1
#> 4  T360x V0100x       0