Displaying 1 result from an estimated 1 matches for "dv4365".
Did you mean:
4365
2018 Mar 25
1
Medical risk package calculation RSI
...ing it, I'm unable to interpret the output.
here is the sample code
# Calculate RSI for each patient ("id") in dataframe
cases <- data.frame(id=c(1,1,1,2,2,2,2,2),
+ icd9cm=c("D4019","D25000","DV707","D71945","DV4365","D78079","D70909","D1958"))
library(plyr)
ddply(cases, .(id), function(x) { icd9cm_sessler_rsi(x$icd9cm) } )
Output:
id rsi_1yrpod rsi_30dlos rsi_30dpod rsi_inhosp
1 1 -0.2860474 1.2481208 -0.5722244 -0.2612804
2 2 0.1417417 0.9779779 -1.0318395 0.00...