data <- data.frame( Gender = c(1, 0, 1, 1, 0), Age = c(30.83, 58.67, 24.50, 27.83, 20.17), Debt = c(0.000, 4.460, 0.500, 1.540, 5.625), 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, 0, 0, 1, 0), CreditScore = c(1, 6, 0, 5, 0), DriversLicense = c(1, 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 eigen value dan eigen vector

cov_matrix <- cov(data) # Variance-Covariance Matrix eigen_values_vectors <- eigen(cov_matrix)

Menampilkan eigen values dan eigen vectors

print(“Eigen Values:”) print(eigen_values_vectors$values)

print(“Eigen Vectors:”) print(eigen_values_vectors$vectors)

Menampilkan Variance-Covariance Matrix

print(“Variance-Covariance Matrix:”) print(cov_matrix)

Menampilkan Correlation Matrix

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