Predicting Blood Donations

Librerias

library(plyr)
library(dplyr)
library(ggplot2)
library(Amelia)
library(rpart)
library(imager)

Descripcion de la data

Donor ID: X1

Months since Last Donation: MSLD this is the number of monthis since this donor’s most recent donation.

Number of Donations: NOD this is the total number of donations that the donor has made.

Total Volume Donated (c.c.): TVDcc this is the total amound of blood that the donor has donated in cubuc centimeters.

Months since First Donation: MSFD this is the number of months since the donor’s first donation.

Made Donation in March 2007: MDIM2007

Observations: 576
Variables: 6
$ X1       <int> 619, 664, 441, 160, 358, 335, 47, 164, 736, 436, 46...
$ MSLD     <int> 2, 0, 1, 2, 1, 4, 2, 1, 5, 0, 2, 1, 2, 2, 2, 2, 2, ...
$ NOD      <int> 50, 13, 16, 20, 24, 4, 7, 12, 46, 3, 10, 13, 6, 5, ...
$ TVDcc    <int> 12500, 3250, 4000, 5000, 6000, 1000, 1750, 3000, 11...
$ MSFD     <int> 98, 28, 35, 45, 77, 4, 14, 35, 98, 4, 28, 47, 15, 1...
$ MDIM2007 <int> 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, ...

Histogramas

Numero de Donaciones

En promedio las personas donan sangre cada 8.67 meses

[1] 8.67127

Volumen de donacion en centimetros cubicos

Volumen premedio de sangre, en centimetros cubicos, por donacion

[1] 250

Meses desde la ultima donacion

Meses desde la primera donacion

Modelo 1

modelo1 <- rpart(MDIM2007 ~ MSLD + NOD + TVDcc + MSFD,
data = train, method = "class")

Predicción 1

prediccion1<-predict(object=modelo1, newdata = test, type = "prob")
prediccion1<-data.frame(X1=test$X1,donate = prediccion1)
prediccion1<-select(prediccion1, -donate.0)
write.csv(prediccion1, file = "modelo1x.csv", row.names = FALSE)

Probabilidan de donar sangre en Marzo

Modelo 2

modelo2 <- rpart(MDIM2007 ~ MSLD + NOD,
data = train, method = "class")

Predicción 2

prediccion2<-predict(object=modelo2, newdata = test, type = "prob")
prediccion2<-data.frame(X1=test$X1,donate = prediccion2)
prediccion2<-select(prediccion2, -donate.0)
write.csv(prediccion2, file = "modelo2x.csv", row.names = FALSE)

Probabilidan de donar sangre en Marzo

Evaluacion