Loading the data and model

titanic_imputed <- archivist::aread("pbiecek/models/27e5c")
titanic_rf <- archivist:: aread("pbiecek/models/4e0fc")
(henry <- archivist::aread("pbiecek/models/a6538"))

##   class gender age sibsp parch fare  embarked
## 1   1st   male  47     0     0   25 Cherbourg