siswa <- c("nita","biki","lilis","azkiya","ulfah")
waktu_belajar <- c(5,9,5,6,7)
mtk <- c(100,97,45,57,84)
fis <- c(76,97,64,53,89)
bio <- c(89,67,79,80,73)
kim <- c(90,79,85,46,80)
a<- data.frame(row.names = siswa, waktu_belajar,mtk,fis,bio,kim)
a
## waktu_belajar mtk fis bio kim
## nita 5 100 76 89 90
## biki 9 97 97 67 79
## lilis 5 45 64 79 85
## azkiya 6 57 53 80 46
## ulfah 7 84 89 73 80
cor(a)
## waktu_belajar mtk fis bio kim
## waktu_belajar 1.0000000 0.46831497 0.7375030 -0.89271175 -0.08618640
## mtk 0.4683150 1.00000000 0.7718225 -0.09269207 0.42498225
## fis 0.7375030 0.77182249 1.0000000 -0.60085461 0.56130779
## bio -0.8927117 -0.09269207 -0.6008546 1.00000000 0.08757354
## kim -0.0861864 0.42498225 0.5613078 0.08757354 1.00000000
boxplot(a, main="Plot Boxplot", col="red")
