G1401221038_Muhammad-Abshor-Dzulhij-Rizki_latihan-R-mandarel.R

# Membuat data
set.seed(123)  # Set seed untuk reproduktibilitas
data.experiment <- matrix(rnorm(25), nrow = 5, ncol = 5)  # Matriks data acak

# Memberikan nama kolom dan baris
colnames(data.experiment) <- c("Var1", "Var2", "Var3", "Var4", "Var5")
rownames(data.experiment) <- c("Obs1", "Obs2", "Obs3", "Obs4", "Obs5")

# Menampilkan data
print("Data.experiment:")

## [1] "Data.experiment:"

print(data.experiment)

##             Var1       Var2       Var3       Var4       Var5
## Obs1 -0.56047565  1.7150650  1.2240818  1.7869131 -1.0678237
## Obs2 -0.23017749  0.4609162  0.3598138  0.4978505 -0.2179749
## Obs3  1.55870831 -1.2650612  0.4007715 -1.9666172 -1.0260044
## Obs4  0.07050839 -0.6868529  0.1106827  0.7013559 -0.7288912
## Obs5  0.12928774 -0.4456620 -0.5558411 -0.4727914 -0.6250393

boxplot(data.experiment, main= "Grafik Boxplot",col="brown")

hist(data.experiment, main = "Grafik Histogram", col = "grey")

# Menghitung korelasi
korelasi_matriks <- cor(data.experiment)
print("Matrix Korelasi:")

## [1] "Matrix Korelasi:"

print(korelasi_matriks)

##            Var1        Var2       Var3        Var4        Var5
## Var1  1.0000000 -0.82193424 -0.2440453 -0.93915035 -0.33388176
## Var2 -0.8219342  1.00000000  0.6714126  0.84289605 -0.01070185
## Var3 -0.2440453  0.67141259  1.0000000  0.48497496 -0.45532882
## Var4 -0.9391503  0.84289605  0.4849750  1.00000000  0.09577158
## Var5 -0.3338818 -0.01070185 -0.4553288  0.09577158  1.00000000