Mandarel

kalkulus <- c(100, 90, 75, 85, 70)
kalkulus

## [1] 100  90  75  85  70

metstat <- c(45, 95, 90, 68, 85)
metstat

## [1] 45 95 90 68 85

mandarel <- c(95, 90, 50, 60, 60)
mandarel

## [1] 95 90 50 60 60

mpd <- c(60, 50, 70, 90, 80)
mpd

## [1] 60 50 70 90 80

alpro <- c(100, 90, 50, 80, 70)
alpro

## [1] 100  90  50  80  70

nilaiUTS <- data.frame(kalkulus,metstat, mandarel,mpd)
nilaiUTS

##   kalkulus metstat mandarel mpd
## 1      100      45       95  60
## 2       90      95       90  50
## 3       75      90       50  70
## 4       85      68       60  90
## 5       70      85       60  80

hist(nilaiUTS$metstat, main="Mata Kuliah Metstat", col = "yellow")

boxplot(nilaiUTS, main="Plot Boxplot", col="red")

cor(nilaiUTS)

##            kalkulus    metstat   mandarel        mpd
## kalkulus  1.0000000 -0.6597610  0.8637402 -0.5298129
## metstat  -0.6597610  1.0000000 -0.4193918 -0.1086218
## mandarel  0.8637402 -0.4193918  1.0000000 -0.7463905
## mpd      -0.5298129 -0.1086218 -0.7463905  1.0000000