set.seed(123) data <- data.frame( Kolom1 = c(10, 15, 20, 25, 30), Kolom2 = c(5, 10, 15, 20, 25), Kolom3 = c(8, 12, 18, 24, 30), Kolom4 = c(15, 20, 25, 30, 35), Kolom5 = c(12, 18, 22, 28, 32) )

Menampilkan Data

print(“Data:”) print(data)

#Menampilkan boxplot boxplot(data, main=“Box Plot Data”, col=“lightblue”, border=“black”)

Menghitung korelasi

correlation_matrix <- cor(data)

Menampilkan matriks korelasi

print(“Matriks Korelasi:”) print(correlation_matrix)