injury_score: Calculate injury severity score from ICD-9

In InjurySeverityScore: Translate ICD-9 into Injury Severity Score

Description

Calculate injury severity score from ICD-9

Usage

injury_score(indata, id_var, dx_var, has_dot = TRUE, tall = TRUE)

Arguments

indata	A data frame
id_var	A variable for patient id
dx_var	A character varaible for dx code
has_dot	A logical varaible indicates whether ICD code has dot
tall	A logical variable incates data is tall (T) or wide (F)

Value

A data frame contains iss score

See Also

https://github.com/dajuntian/InjurySeverityScore/blob/master/README.md

Examples

pat_id <- c(2,2,2,2,2,1,2,1,2,1,2,1,1,1,1,1,1,1,1,1,1,1,1,1)
icd9 <- c('874.2', '874.8', '900.81', '900.82', '900.89', '805.06', 
          'E966', '805.07', 'V14.0', '807.02', 'V70.4', '821.01', '823.20', 
          '860.0', '861.01', '861.21', '861.22', '863.84', '864.04', '865.04', 
          '865.09', '866.02', '868.04', '958.4')
sample_data <- data.frame(subj = pat_id, code = icd9, stringsAsFactors = FALSE)
injury_score(sample_data, subj, code)

data2 <- data.frame(pid = c(1,2), diag1 = c('900.89', '805.06'),
                    diag2 = c('863.84', '865.04'))
injury_score(data2, pid, diag, tall = FALSE)

InjurySeverityScore documentation built on May 19, 2019, 9:02 a.m.