R/PLL.CoxBoost.R

Defines functions `PLL.CoxBoost`

`PLL.CoxBoost` <-
function(object, newdata, newtime, newstatus, complexity, ...){
   if(is.list(complexity)){
      PLL <- predict(object, type="logplik", newdata=newdata,
         newtime=newtime, newstatus=newstatus, at.step=complexity$stepno)
      } else {
      PLL <- predict(object, type="logplik", newdata=newdata,
         newtime=newtime, newstatus=newstatus, at.step=complexity)
      }
   PLL
}

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.