injury_score {InjurySeverityScore}

Calculate injury severity score from ICD-9

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)