R/fit.CoxBoost.R

Defines functions `fit.CoxBoost`

`fit.CoxBoost` <-
function(response, x, cplx, ...){
   require(CoxBoost)
   time <- response[,"time"]
   status <- response[,"status"]

#    if (is.list(cplx)){
#    step <- cplx$stepno
#    pen <- cplx$stepsize.factor
#    res <- CoxBoost(time, status, x, stepno=step, stepsize.factor=pen, ...)
#    } else {
   res <- CoxBoost(time, status, x, stepno=cplx, ...)
#   }
   res
}

Try the peperr package in your browser

Any scripts or data that you put into this service are public.

peperr documentation built on May 2, 2019, 4:08 a.m.