source("../../R/predict.survreg.s")
debug(predict.survreg)
temp <- predict(fit3, type='terms', se.fit=T)
asgn
coef(object)
rownames(object$var)
hasintercept
asgn
nterms
asgn
x[1,]
names(R)
rownames(R)
source("../../R/predict.survreg.s")
temp <- predict(fit3, type='terms', se.fit=T)
(p3$fit + attr(p3$fit, 'constant')
attr(p3$fit, 'constant')
p3$fit
p4fit
p4$fit
source("../../R/predict.survreg.s")
attr(p3$fit, 'constant')
fit2
attributes(p3)
attributes(p3$fit)
source("../../R/predict.survreg.s")
gc()
ls()
rm(mpip)
pred[lung$sex==2]
predict(fit3b)
q()
