---

Tugas Praktikum STA1261

Yulianti Nurdzanah (G1401221011)

Bentuk 1 buah data (bebas) berisi 5 kolom dan 5 baris kemudian buatkan plot serta hitung korelasinya. Kemudian upload hasil pada rpubs yang sudah dibentuk.

#Input Data

NIM<-c(111,112,113,114,115);NIM

## [1] 111 112 113 114 115

MDR<-c(8,7,6,9,7);MDR

## [1] 8 7 6 9 7

MPD<-c(7,9,8,6,8);MPD

## [1] 7 9 8 6 8

ALJABAR<-c(9,10,8,7,9);ALJABAR

## [1]  9 10  8  7  9

KALKULUS<-c(6,7,8,5,6);KALKULUS

## [1] 6 7 8 5 6

NILAI <- cbind.data.frame(NIM,MDR,MPD,ALJABAR,KALKULUS); NILAI

##   NIM MDR MPD ALJABAR KALKULUS
## 1 111   8   7       9        6
## 2 112   7   9      10        7
## 3 113   6   8       8        8
## 4 114   9   6       7        5
## 5 115   7   8       9        6

#Membuat Plot

hist(NILAI$MDR, main="Nilai MDR", col="lightpink")

hist(NILAI$MPD, main="Nilai MPD", col="lightyellow")

hist(NILAI$ALJABAR, main="Nilai ALJABAR MATRIKS", col="lightblue")

hist(NILAI$KALKULUS, main="Nilai KALKULUS II", col="lightgreen")

boxplot(NILAI$MDR, NILAI$MPD, NILAI$ALJABAR, NILAI$KALKULUS, main="SEBARAN NILAI MAHASISWA", col="purple")

#Korelasi

cor(NILAI)

##                 NIM        MDR        MPD    ALJABAR   KALKULUS
## NIM       1.0000000  0.0000000 -0.1386750 -0.4160251 -0.2773501
## MDR       0.0000000  1.0000000 -0.8076923 -0.4230769 -0.9230769
## MPD      -0.1386750 -0.8076923  1.0000000  0.8076923  0.7307692
## ALJABAR  -0.4160251 -0.4230769  0.8076923  1.0000000  0.3461538
## KALKULUS -0.2773501 -0.9230769  0.7307692  0.3461538  1.0000000