---

title: “TUGAS PERTEMUAN KE- 2” author: “SEILVY KUSUMAH D.A _034” date: “2025-02-15” output: html_document

Membuat data numerik berdasarkan tabel

data <- data.frame( Gender = c(1, 0, 0, 1, 1), Age = c(30.83, 58.67, 24.50, 27.83, 20.17), Debt = c(0.000, 4.460, 0.500, 1.540, 5.625), Married = c(1, 1, 1, 1, 1), BankCustomer = c(1, 1, 1, 1, 1), YearsEmployed = c(1.25, 3.04, 1.50, 3.75, 1.71), PriorDefault = c(1, 1, 1, 1, 1), Employed = c(1, 1, 1, 1, 0), CreditScore = c(1, 6, 0, 5, 0), DriversLicense = c(0, 0, 0, 1, 0), ZipCode = c(202, 43, 280, 100, 120), Income = c(0, 560, 824, 3, 0), Approved = c(1, 1, 1, 1, 1) )

Menghitung matriks varians-kovarians

cov_matrix <- cov(data) print(“Variance-Covariance Matrix:”) print(cov_matrix)

Menghitung matriks korelasi

cor_matrix <- cor(data) print(“Correlation Matrix:”) print(cor_matrix)

Menghitung nilai eigen dan vektor eigen

eigen_result <- eigen(cov_matrix) print(“Eigenvalues:”) print(eigen_result\(values) print("Eigenvectors:") print(eigen_result\)vectors)