# NOT RUN {
#--- LongCART example
data(ACTG175)
gvars=c("gender", "wtkg", "hemo", "homo", "drugs",
"karnof", "oprior", "z30", "zprior", "race",
"str2", "symptom", "treat", "offtrt")
tgvars=c(0, 1, 0, 0, 0,
1, 0, 0, 0, 0,
0, 0, 0, 0)
out1<- LongCART(data=ACTG175, patid="pidnum", fixed=cd4~time,
gvars=gvars, tgvars=tgvars, alpha=0.05,
minsplit=100, minbucket=50, coef.digits=2)
pred1<- predict.LongCART(object=out1, newdata=ACTG175, patid="pidnum")
head(pred1)
#--- SurvCART example
data(GBSG2)
GBSG2$horTh1<- as.numeric(GBSG2$horTh)
GBSG2$tgrade1<- as.numeric(GBSG2$tgrade)
GBSG2$menostat1<- as.numeric(GBSG2$menostat)
GBSG2$subjid<- 1:nrow(GBSG2)
fit<- SurvCART(data=GBSG2, patid="subjid", censorvar="cens", timevar="time",
gvars=c('horTh1', 'age', 'menostat1', 'tsize', 'tgrade1', 'pnodes', 'progrec', 'estrec'),
tgvars=c(0,1,0,1,0,1, 1,1),
event.ind=1, alpha=0.05, minsplit=80, minbucket=40, print=TRUE)
pred2<- predict.SurvCART(object=fit, newdata=GBSG2)
head(pred2)
# }
Run the code above in your browser using DataLab