Displaying 2 results from an estimated 2 matches for "icd9code".
Did you mean:
bcdecode
2007 Jul 16
0
FW: summary statistics for groups
...ot;dis2",5), rep("dis3",3))
n <- length(icd9)
exposure <- rnorm(n)
working <- data.frame(icd9, exposure)
# get some useful things together
numDis <- length(levels(working$icd9))
diseaseCodes <- levels(working$icd9)
# capture results in here
results <- data.frame(ICD9code=diseaseCodes, ave_exposure=rep(NA,
numDis), ICD9count=rep(NA, numDis), other_ave=rep(NA, numDis),
other_Ct=rep(NA, numDis))
for(k in 1:numDis){
working$indicator <- ifelse(working$icd9==diseaseCodes[k], "Yes",
"No")
xbars <- with(working, tapply(exposure, list(i...
2011 Mar 18
0
apply function returning different results
...ion(cptdf){
if(cptdf[4] %in% cptcodes[,1]){
P.hit <- as.numeric(cptdf[6]) / sum.all.hits
return (P.hit)
} else{
return (-miss)
}
}
query.db <- function(dxdf){
snquery = dbSendQuery(connection, paste("select distinct cpt4code from
DxRxLookup where icd9code = '", dxdf[4], "'", sep = ""))
cptcodes <<- dbGetResult(snquery)
#restrict this to constrain by Rx1 and Rx2 inputs
h1 <<- which(cpt$Cpt %in% cptcodes[,1])
y <<- which((cpt$Rx2 %in% dxdf[2] | cpt$Rx1 %in% dxdf[2]) & (cpt$Rx1
%in...