## Not run:
# ## Generate some data
# n <- 100; p <- 10
#
# # covariates with non-linear (smooth) effects
# x <- matrix(runif(n*p,min=-1,max=1),n,p)
# eta <- -0.5 + 2*x[,1] + 2*x[,3]^2 + x[,9]-.5
# y <- rbinom(n,1,binomial()$linkinv(eta))
#
# # Determine step-size modification factor for a generalize linear model
# # As there is no connection matrix, perform search into both directions
#
# optim.res <- optimStepSizeFactor(direction="both",
# y=y,x.linear=x,family=binomial(),
# penalty.linear=200,
# trace=TRUE)
#
# # Fit with obtained step-size modification parameter and optimal number of boosting
# # steps obtained by cross-validation
#
# gb1 <- GAMBoost(x=NULL,y=y,x.linear=x,family=binomial(),penalty.linear=200,
# stepno=optim.res$optimal.step,
# stepsize.factor.linear=optim.res$optimal.factor)
#
# summary(gb1)
#
# ## End(Not run)
Run the code above in your browser using DataLab