Displaying 1 result from an estimated 1 matches for "censred".
Did you mean:
censored
2002 May 17
0
options()$warn==2 and try()
...e(text=paste(dframe,vnames[1],sep="$")))
## Get covariate x2 from data frame:
x2x2 <- eval(parse(text=paste(dframe,vnames[2],sep="$")))
## Get survival time:
response <- eval(parse(text=paste(dframe,survname,sep="$")))
## Get censoring variable:
censred <- eval(parse(text=paste(dframe,censname,sep="$")))
censred <- as.numeric(censred == censval)
## Take out observations with missing x1 or x2.
SUBSET.to.use <- (!is.na(x1x1))&(!is.na(x2x2))
## Take only x1/x2 values specified in SUBSET.to.use:
x1 <- x1x1[(SUBS...