MKTG 720, Customer Analytics  Students are to submit response in WORD file electronically via Blackboard.  Submission should include Students Name and Course Number.  Submissions must follow the...

1 answer below »

View more »
Answered Same DayOct 15, 2021

Answer To: MKTG 720, Customer Analytics  Students are to submit response in WORD file electronically via...

Naveen answered on Oct 16 2021
142 Votes
---
title: "Assignment 2"
output: pdf_document
---
```{r}
# Installing required packages
# install.packages("factoextra")
# Loading required package
library(factoextra)
# Reading data
df <- read.csv('assignment2data.csv', header = TRUE,sep = ',')
# Print first SIX records
head(df)
# Print structure of the data
str(df)
```
## Q1
```{r}
# Extracting the Agreement scale data
Agreement_scale <- df[,2:21]
# Print first six records
head(Agreement_scale)
# Split the plotting ratio
par(mfrow = c(3,1))
# Elbow method
set.seed(1234)
fviz_nbclust(Agreement_scale,kmeans, method = "wss")
# Silhouette method
set.seed(1234)
fviz_nbclust(Agreement_scale,kmeans, method = "silhouette")
# Gap Statistic method
set.seed(1234)
fviz_nbclust(Agreement_scale,kmeans, method = "gap_stat")
# Extracting the results
set.seed(1234)
model1 <- kmeans(Agreement_scale, centers = 2)
# Print the model
print(model1)
# Split the plotting ratio
par(mfrow = c(1,1))
# Visualize the results
fviz_cluster(model1, data = Agreement_scale)
```
## Q2
```{r}
# Extracting the Important scale data
Important_scale <- df[,22:25]
# Print first six records
head(Important_scale)
# Split the plotting ratio
par(mfrow = c(3,1))
# Elbow method
set.seed(1234)
fviz_nbclust(Important_scale,kmeans, method = "wss")
# Silhouette method
set.seed(1234)
fviz_nbclust(Important_scale,kmeans, method = "silhouette")
# Gap Statistic method
set.seed(1234)
fviz_nbclust(Important_scale,kmeans, method = "gap_stat")
# Extracting the results
set.seed(1234)
model2 <-...
SOLUTION.PDF

Answer To This Question Is Available To Download

Related Questions & Answers

More Questions »

Submit New Assignment

Copy and Paste Your Assignment Here
April
January
February
March
April
May
June
July
August
September
October
November
December
2025
2025
2026
2027
SunMonTueWedThuFriSat
30
31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
1
2
3
00:00
00:30
01:00
01:30
02:00
02:30
03:00
03:30
04:00
04:30
05:00
05:30
06:00
06:30
07:00
07:30
08:00
08:30
09:00
09:30
10:00
10:30
11:00
11:30
12:00
12:30
13:00
13:30
14:00
14:30
15:00
15:30
16:00
16:30
17:00
17:30
18:00
18:30
19:00
19:30
20:00
20:30
21:00
21:30
22:00
22:30
23:00
23:30