Carga de librerías y datos
library(caret)
library(tidyverse)
library(rpart)
df <- MASS::Boston %>% mutate(chas=factor(chas, labels=c('No','Si')))
head(df)
Entrenar un Gradient Boosting
###
Analizar la Variable Importance
###
Construir y analizar los PDP
###
Analizar e interpretar los ICE
###
Comparar los resultados con el caso de Random Forest
###
LS0tDQp0aXRsZTogIlByw6FjdGljYSBJbmRlcGVuZGllbnRlIC0gSU1MIg0KYXV0aG9yOiAiR2VybcOhbiBSb3NhdGkiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCiMjIyBDYXJnYSBkZSBsaWJyZXLDrWFzIHkgZGF0b3MNCg0KYGBge3IsIG1lc3NhZ2U9RkFMU0V9DQpsaWJyYXJ5KGNhcmV0KQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KHJwYXJ0KQ0KDQpkZiA8LSBNQVNTOjpCb3N0b24gJT4lIG11dGF0ZShjaGFzPWZhY3RvcihjaGFzLCBsYWJlbHM9YygnTm8nLCdTaScpKSkNCmhlYWQoZGYpDQoNCmBgYA0KDQoNCiMjIyBFbnRyZW5hciB1biBHcmFkaWVudCBCb29zdGluZw0KDQoNCmBgYHtyfQ0KIyMjDQpgYGANCg0KDQojIyMgQW5hbGl6YXIgbGEgVmFyaWFibGUgSW1wb3J0YW5jZQ0KDQpgYGB7cn0NCiMjIw0KYGBgDQoNCg0KIyMjIENvbnN0cnVpciB5IGFuYWxpemFyIGxvcyBQRFANCg0KDQpgYGB7cn0NCiMjIw0KYGBgDQoNCg0KIyMjIEFuYWxpemFyIGUgaW50ZXJwcmV0YXIgbG9zIElDRQ0KDQpgYGB7cn0NCiMjIw0KYGBgDQoNCg0KIyMjIENvbXBhcmFyIGxvcyByZXN1bHRhZG9zIGNvbiBlbCBjYXNvIGRlIFJhbmRvbSBGb3Jlc3QNCg0KYGBge3J9DQojIyMNCmBgYA0KDQo=