KELOMPOK 1 :

  1. Muthi’ah Iffa Karimah G1401231091
  2. Fatima Azzahra G1401231036
  3. Qindy Naura G1401231035
  4. Agustin Salsabila G1401231105
  5. Atha Nabila R G1401231068
  6. Diani Raras Puspita G1401221052
  7. Dewa Rizky M G1401231030

Kelompok 1: Matriks Kovarians dan Korelasi

Sebuah riset kepuasan pelanggan dilakukan di sebuah restoran dengan mengumpulkan data dari 15 pelanggan mengenai kepuasan terhadap kualitas makanan (x1) dan kecepatan layanan (x2) menggunakan skala 1-10. Matriks varians-kovarians (Σ) dari data tersebut adalah:

Σ=[4.01.51.52.5]

Pertanyaan:

1. Buatlah matriks Σ dalam R.

2. Hitunglah matriks korelasi (ρ) dari matriks Σ.

3. Tentukan simpangan baku (standar deviasi) dari setiap peubah.

# membuat matriks
Sigma <- matrix(c(4.0, 1.5,
                  1.5, 2.5),
                nrow = 2, byrow = TRUE)

Sigma
##      [,1] [,2]
## [1,]  4.0  1.5
## [2,]  1.5  2.5
# hitung korelasi
Sigma <- matrix(c(4.0, 1.5,
                  1.5, 2.5),
                nrow = 2, byrow = TRUE)

# Matriks korelasi
cor_matrix <- cov2cor(Sigma)
cor_matrix
##           [,1]      [,2]
## [1,] 1.0000000 0.4743416
## [2,] 0.4743416 1.0000000
# menghitung simpangan baku 
deviasi = sqrt(diag(Sigma))
deviasi
## [1] 2.000000 1.581139