Mengambil Data Set

dataset <- read.csv(file.choose(), sep=";")
View(dataset)

#Scatter Plot
plot(dataset$Pendapatan, dataset$Total)

#Hubungan Antara Variabel Numerik
cor.test(dataset$Pendapatan, dataset$Total)
## 
##  Pearson's product-moment correlation
## 
## data:  dataset$Pendapatan and dataset$Total
## t = 3.1168, df = 18, p-value = 0.005957
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
##  0.2026033 0.8197871
## sample estimates:
##       cor 
## 0.5920437

P-Value bernilai 0.005957<0.05 artinya H0 ditolak dan Ha didterima yakni terdapat hubungan antara pendapatan dan total belanja. Korelasi yang bernilai 0.5920437 artinya antar variabel memiliki tingkat hubungan yang sedang.

#Hubungan Antara Variabel Kategorik
tabulasi <- table(dataset$Produk, dataset$Tingkat.Kepuasan)
chisq.test(tabulasi)
## Warning in chisq.test(tabulasi): Chi-squared approximation may be incorrect
## 
##  Pearson's Chi-squared test
## 
## data:  tabulasi
## X-squared = 7.95, df = 8, p-value = 0.4384

P-value bernilai 0.4384>0.05 artinya H0 diterima dan Ha ditolak, yakni tidak terdapat hubungan antara Produk dengan tingkat kepuasan.

#Boxplot
boxplot(Total~Jenis.Kelamin, data=dataset)

Boxplot digunakan untuk mendeteksi outlier yang ada pada data. Pada data ini tidak terdapat outlier.

#Hubungan Antara Variabel Kategorik dan Variabel Numerik
t.test(Total~Jenis.Kelamin, data=dataset)
## 
##  Welch Two Sample t-test
## 
## data:  Total by Jenis.Kelamin
## t = -1.1498, df = 12.133, p-value = 0.2724
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -488985.4  150890.2
## sample estimates:
## mean in group 1 mean in group 2 
##        591666.7        760714.3

P-value bernilai 0.2724>0.05 artinya H0 diterima dan Ha ditolak, yakni tidak terdapat hubungan antara Jenis Kelamin dengan Total Belanja.