P7.Rmd - -title: P7 output: pdf document: default html...

---
title: "P7"
output:
pdf_document: default
html_document: default
word_document: default
Name: Karina Mota
---
```{r}
library(tidyverse)
library(caret)
library(randomForest)
library(lubridate)
library(corrplot)
```
```{r}
# Read in the data
customers = read_delim(paste0("marketing_campaign.csv"), delim = "\t", quote="")
glimpse(customers)
```
```{r}
colnames(customers)[1] <- "ID"
```
```{r}
colnames(customers)
```
```{r}
colnames(customers)[29] <- "Response"
```
```{r}
colnames(customers)
```
```{r}
customers = customers %>%
select(-ID, -Z_Revenue, -Z_CostContact) %>%
mutate(Dt_Customer = as.Date(Dt_Customer, format = "%d-%m-%Y")) %>%
mutate_at(vars(Education, Marital_Status, AcceptedCmp1, AcceptedCmp2,
AcceptedCmp3, AcceptedCmp4, AcceptedCmp5, Complain, Response),
.funs = factor)
```

```{r}
# * Set the date that the data was collected and analyzed.