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=