Displaying 1 result from an estimated 1 matches for "icdcode".
2009 Jun 23
2
Long to wide format without time variable
...Coder1","ICD2","Coder2","ICD3","Coder3","ICD4","Coder4","ICD5","Coder5")
j<-0
for (i in 1:ct){
kkk <- ids[i]
rpt<-data[data$id==kkk,]
j<-max(j,nrow(rpt))
codes[i,1]<-kkk
codes[i,2]<-rpt$ICDCode[1]
codes[i,3]<-rpt$T_Physician_ID[1]
#if (nrow(rpt)>=2){
codes[i,4]<-rpt$ICDCode[2]
codes[i,5]<-rpt$T_Physician_ID[2]
#if (nrow(rpt)>=3) {
codes[i,6]<-rpt$ICDCode[3]
codes[i,7]<-rpt$T_Physician_ID[3]
#if (nrow(rpt)>=4) {
codes[i,8]<-r...