A simple demonstration and implementation of gradient boosting
The stable release of the package is hosted on CRAN and can be installed as usual:
install.packages("DidacticBoost")library(DidacticBoost)
k <- kyphosis
k$Kyphosis <- factor(ifelse(k$Kyphosis == "present", 1L, -1L))
fit <- fitBoosted(Kyphosis ~ Age + Number + Start, data = k, iterations = 10)
predict(fit, newdata = k[, 1:5])