R/GLMBoost.R

Defines functions optimGLMBoostPenalty cv.GLMBoost predict.GLMBoost GLMBoost

Documented in cv.GLMBoost GLMBoost optimGLMBoostPenalty predict.GLMBoost

GLMBoost <- function(x,y,penalty=length(y),standardize=TRUE,...) {
    res <- GAMBoost(x=NULL,x.linear=x,y=y,penalty.linear=penalty,standardize.linear=standardize,...)
    class(res) <- c("GLMBoost",class(res))
    res
}

predict.GLMBoost <- function(object,newdata=NULL,...) {
    predict.GAMBoost(object,newdata=NULL,newdata.linear=newdata,...)
}

cv.GLMBoost <- function(x,y,penalty=length(y),just.criterion=TRUE,...) {
    res <- cv.GAMBoost(x=NULL,x.linear=x,y=y,penalty.linear=penalty,just.criterion=just.criterion,...)
    if (!just.criterion) class(res) <- c("GLMBoost",class(res))
    res
}

optimGLMBoostPenalty <- function(x,y,start.penalty=length(y),just.penalty=FALSE,...) {
    res <- optimGAMBoostPenalty(x=NULL,x.linear=x,y=y,start.penalty=start.penalty,
                                just.penalty=just.penalty,which.penalty="linear",...)
    if (!just.penalty) class(res) <- c("GLMBoost",class(res))
    res
}

Try the GAMBoost package in your browser

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

GAMBoost documentation built on May 30, 2017, 3:50 a.m.