Tugas MDR P13

#harga jual facial wash
Day.Cream <- c(20,40,50,60,70)
Day.Cream

## [1] 20 40 50 60 70

Serum <- c(45,50,70,80,75)
Serum

## [1] 45 50 70 80 75

Sunscreen <- c(70,50,30,80,85)
Sunscreen 

## [1] 70 50 30 80 85

Toner <- c(20,30,40,50,70)
Toner

## [1] 20 30 40 50 70

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

## [1] 50 60 70 80 90

harga <- data.frame(Day.Cream,Serum,Sunscreen,Toner,Moisturizer)
harga

##   Day.Cream Serum Sunscreen Toner Moisturizer
## 1        20    45        70    20          50
## 2        40    50        50    30          60
## 3        50    70        30    40          70
## 4        60    80        80    50          80
## 5        70    75        85    70          90

boxplot(harga, main="Plot Boxplot", col="green")

cor(harga)

##             Day.Cream     Serum Sunscreen     Toner Moisturizer
## Day.Cream   1.0000000 0.9097243 0.3020740 0.9594595   0.9863939
## Serum       0.9097243 1.0000000 0.2569658 0.8429555   0.9138115
## Sunscreen   0.3020740 0.2569658 1.0000000 0.4673598   0.4160251
## Toner       0.9594595 0.8429555 0.4673598 1.0000000   0.9863939
## Moisturizer 0.9863939 0.9138115 0.4160251 0.9863939   1.0000000

hist(harga$Toner, main="Plot Histogram", col = "blue")