Displaying 1 result from an estimated 1 matches for "stypea".
Did you mean:
stype
2009 Oct 05
0
Unusual error while using coxph
...all.otc[i]==0 && data$all.o[i]==0)
dummy[i] <- i
}
return(data[-dummy,])
}
# create smaller dataset with missing cases removed #
nmarma <- snearma(nearma)
# create short stratification variable #
nmrpa <- randp(nmarma)
# create censoring variable for the covariate #
stypea <- function(data)
{
for(i in 1:nrow(data)){
if(is.na(data$all.sp)[i])
data$all.sp[i]<-0
if(is.na(data$all.cp)[i])
data$all.cp[i]<-0
if(is.na(data$all.scgtc)[i])
data$all.scgtc[i]<-0
if(is.na(data$all.tc)[i])
data$all.tc[i] <- 0
if(is.na(dat...