Experimentos con el paquete gbm
No conocía el paquete gbm. Pero como ahora ando rodeado de data scientists que no son estadísticos…
Bueno, la cuestión es que había que ajustar un modelo para el que yo habría hecho algo parecido a
dat <- read.csv("http://www.ats.ucla.edu/stat/data/poisson_sim.csv")
summary(m.glm <- glm(num_awards ~ prog + math, family = "poisson", data = dat))
# Call:
# glm(formula = num_awards ~ prog + math, family = "poisson", data = dat)
#
# Deviance Residuals:
# Min 1Q Median 3Q Max
# -2.1840 -0.9003 -0.5891 0.3948 2.9539
#
# Coefficients:
# Estimate Std. Error z value Pr(>|z|)
# (Intercept) -5.578057 0.676823 -8.242 <2e-16 ***
# prog 0.123273 0.163261 0.755 0.45
# math 0.086121 0.009586 8.984 <2e-16 ***
# ---
# Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#
# (Dispersion parameter for poisson family taken to be 1)
#
# Null deviance: 287.67 on 199 degrees of freedom
# Residual deviance: 203.45 on 197 degrees of freedom
# AIC: 385.51
#
# Number of Fisher Scoring iterations: 6como en esta página.