Customers <- read.csv("UniversalBank.csv")
head(Customers)
## X X.1 X.2 X.3 X.4 X.5 X.6
## 1 Universal Bank Customer Profiles
## 2
## 3 ID Age Experience Income ZIP Code Family CCAvg
## 4 1 25 1 49 91107 4 1.60
## 5 2 45 19 34 90089 3 1.50
## 6 3 39 15 11 94720 1 1.00
## X.7 X.8 X.9 X.10 X.11 X.12
## 1
## 2
## 3 Education Mortgage Personal Loan Securities Account CD Account Online
## 4 1 0 0 1 0 0
## 5 1 0 0 1 0 0
## 6 1 0 0 0 0 0
## X.13
## 1
## 2
## 3 CreditCard
## 4 0
## 5 0
## 6 0
names(Customers)
## [1] "X" "X.1" "X.2" "X.3" "X.4" "X.5" "X.6" "X.7" "X.8" "X.9"
## [11] "X.10" "X.11" "X.12" "X.13"
summary(Customers)
## X X.1 X.2 X.3
## Length:5003 Length:5003 Length:5003 Length:5003
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
## X.4 X.5 X.6 X.7
## Length:5003 Length:5003 Length:5003 Length:5003
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
## X.8 X.9 X.10 X.11
## Length:5003 Length:5003 Length:5003 Length:5003
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
## X.12 X.13
## Length:5003 Length:5003
## Class :character Class :character
## Mode :character Mode :character
str(Customers)
## 'data.frame': 5003 obs. of 14 variables:
## $ X : chr "" "" "ID" "1" ...
## $ X.1 : chr "" "" "Age" "25" ...
## $ X.2 : chr "" "" "Experience" "1" ...
## $ X.3 : chr "Universal Bank Customer Profiles" "" "Income" "49" ...
## $ X.4 : chr "" "" "ZIP Code" "91107" ...
## $ X.5 : chr "" "" "Family" "4" ...
## $ X.6 : chr "" "" "CCAvg" "1.60" ...
## $ X.7 : chr "" "" "Education" "1" ...
## $ X.8 : chr "" "" "Mortgage" "0" ...
## $ X.9 : chr "" "" "Personal Loan" "0" ...
## $ X.10: chr "" "" "Securities Account" "1" ...
## $ X.11: chr "" "" "CD Account" "0" ...
## $ X.12: chr "" "" "Online" "0" ...
## $ X.13: chr "" "" "CreditCard" "0" ...
library(caret)
## Warning: package 'caret' was built under R version 4.0.5
## Loading required package: lattice
## Loading required package: ggplot2
## Warning: package 'ggplot2' was built under R version 4.0.5
set.seed(123)