match.call()
type
source("../../../R/predict.coxph.penal.s")
source("../../R/predict.coxph.penal.s")
tempf <- predict(kfit1, type='terms')[,3]
terms
predict.coxph(kfit1, type='terms')[,3]
kfit1
args(predict.coxph)
names(kfit1$assign)
debug(predict.coxph.penal)
tempf <- predict(kfit1, type='terms')[,3]
nvar
object$terms
terms
-match(sparsename,terms)
sparsename
terms
source("../../R/predict.coxph.penal.s")
tempf <- predict(kfit1, type='terms')[,3]
terms
dropx
coef
nvar
nterms
dim(pred0
dim(pred)
dim(x)
source("../../R/predict.coxph.s")
tempf <- predict(kfit1, type='terms')[,3]
source("../../R/predict.coxph.s")
tempf <- predict(kfit1, type='terms')[,3]
