Displaying 1 result from an estimated 1 matches for "cptdf".
Did you mean:
cpdf
2011 Mar 18
0
apply function returning different results
...288864
0.019052412
726 3663 4775 3030 4938
3259
0.018894556 0.018838258 0.018749506 -0.083333333 0.018416353
0.018240173
1426 4563 3871 958 1242
1033
Here's the function code:
calc.enrichment <- function(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...