STREET FOOD

Cipak <- c(100, 95, 80,85,100)
Cipak

## [1] 100  95  80  85 100

Cilor <- c(90,70,80,85,90)
Cilor

## [1] 90 70 80 85 90

Cilung <- c(50,40,80,70,60)
Cilung

## [1] 50 40 80 70 60

Cimol <- c(90,80,75,55,50)
Cimol

## [1] 90 80 75 55 50

Cirambay <- c(80,75,65,70,90)
Cirambay

## [1] 80 75 65 70 90

Penjualan.5hari<-data.frame(Cilor,Cilung,Cimol,Cipak,Cirambay)
Penjualan.5hari

##   Cilor Cilung Cimol Cipak Cirambay
## 1    90     50    90   100       80
## 2    70     40    80    95       75
## 3    80     80    75    80       65
## 4    85     70    55    85       70
## 5    90     60    50   100       90

boxplot(Penjualan.5hari, main="Penjualan per hari selama 5 hari", col="green")

cor(Penjualan.5hari)

##               Cilor     Cilung      Cimol      Cipak   Cirambay
## Cilor     1.0000000  0.2834734 -0.3083970  0.3125271  0.4970958
## Cilung    0.2834734  1.0000000 -0.4196272 -0.7833495 -0.4931970
## Cimol    -0.3083970 -0.4196272  1.0000000  0.1217462 -0.2682800
## Cipak     0.3125271 -0.7833495  0.1217462  1.0000000  0.9014730
## Cirambay  0.4970958 -0.4931970 -0.2682800  0.9014730  1.0000000

hist(Penjualan.5hari$Cilor, main="Penjualan per Hari Selama 5 Hari", col="pink")