setwd(‘C:\Users\ASUS\Downloads\archive (2)\’) library(data.table) data <- fread(“Housing.csv”)

print(data)

#labelling data[, mainroad := ifelse(mainroad == “yes”, 1, 0)] data[, guestroom := ifelse(guestroom == “yes”, 1, 0)] data[, basement := ifelse(basement == “yes”, 1, 0)] data[, hotwaterheating := ifelse(hotwaterheating == “yes”, 1, 0)] data[, airconditioning := ifelse(airconditioning == “yes”, 1, 0)] data[, prefarea := ifelse(prefarea == “yes”, 1, 0)]

data[, furnishingstatus := as.numeric(factor(furnishingstatus, levels = c(“unfurnished”, “semi-furnished”, “furnished”)))]

print(data)

cov matrix

cov_matrix <- cov(data)

eigen value& vector

eigen_result <- eigen(cov_matrix)

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

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

var-covar matrix

var_cov_matrix <- cov(data)

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

hapus kolom dengan standar deviasi nol sebelum menghitung korelasi

sd_values <- apply(data, 2, sd) data_clean <- data[, sd_values > 0, with = FALSE]

corr matrix

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