Adinda Pratiwi MDR P13

A<-c(1,2,3,4,5);A

## [1] 1 2 3 4 5

B<-c(2,4,6,8,10);B

## [1]  2  4  6  8 10

NILAI <- cbind.data.frame(A,B); NILAI

##   A  B
## 1 1  2
## 2 2  4
## 3 3  6
## 4 4  8
## 5 5 10

hist(NILAI$A, main="Nilai A", col="pink")

boxplot(NILAI$A, NILAI$B, main="SEBARAN NILAI", col="blue")

cor(NILAI)

##   A B
## A 1 1
## B 1 1