Displaying 1 result from an estimated 1 matches for "nmarma".
Did you mean:
nearma
2009 Oct 05
0
Unusual error while using coxph
...a$all.scgtc[i]==0 &&
data$all.tc[i]==0 && data$all.ta[i]==0 && data$all.aa[i]==0 &&
data$all.m[i]==0 & data$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...