Latihan Praktikum MDR

Mendeklarasikan Peubah

Mendeklarasikan lima vektor peubah yaitu A, B, C, D, dan E yang masing-masing memiliki lima observasi/data

A <- c(51,42,33,24,15) 
A 

## [1] 51 42 33 24 15

B <- seq(36,100,by=16) 
B 

## [1]  36  52  68  84 100

C <- seq(45,85,length=5) 
C 

## [1] 45 55 65 75 85

D <- c(62,65,69,75,79) 
D

## [1] 62 65 69 75 79

E <- c(90,90,95,100,100) 
E

## [1]  90  90  95 100 100

Data Frame

Menggabungkan kelima vektor peubah ke dalam satu matriks data frame bernama TabelData

TabelData <- data.frame(A,B,C,D,E)
TabelData

##    A   B  C  D   E
## 1 51  36 45 62  90
## 2 42  52 55 65  90
## 3 33  68 65 69  95
## 4 24  84 75 75 100
## 5 15 100 85 79 100

Membuat Plot

Histogram

Membuat grafik histogram dari vektor peubah E

hist(TabelData$E, main="Grafik Histogram E", col = "orange")

Boxplot

Membuat grafik boxplot tiap peubah pada data frame TabelData

boxplot(TabelData, main="Grafik Boxplot TabelData", col="cyan")

Korelasi

Menghitung korelasi antar-peubah pada data frame TabelData

cor(TabelData)

##            A          B          C          D          E
## A  1.0000000 -1.0000000 -1.0000000 -0.9938587 -0.9486833
## B -1.0000000  1.0000000  1.0000000  0.9938587  0.9486833
## C -1.0000000  1.0000000  1.0000000  0.9938587  0.9486833
## D -0.9938587  0.9938587  0.9938587  1.0000000  0.9642857
## E -0.9486833  0.9486833  0.9486833  0.9642857  1.0000000