Tugas Mandarel

#DELITA NUR HASANAH
#TUGAS MANAJEMEN DATA RELASIONAL

#Input data
NamaCase <- c("Hardcase", "CandyCase", "Backglass", "ClearCase", "MacaronCase")
Modal <- c(15, 10, 16, 12, 14)
Harga <- c(25, 15, 28, 20, 18)
Keuntungan <-c(10, 5, 12, 8, 4)
Penjualan <- c(20, 30, 17, 25, 28)

#Data Frame
casemarket <- data.frame(NamaCase, Modal, Harga, Keuntungan, Penjualan)
casemarket

##      NamaCase Modal Harga Keuntungan Penjualan
## 1    Hardcase    15    25         10        20
## 2   CandyCase    10    15          5        30
## 3   Backglass    16    28         12        17
## 4   ClearCase    12    20          8        25
## 5 MacaronCase    14    18          4        28

str(casemarket)

## 'data.frame':    5 obs. of  5 variables:
##  $ NamaCase  : chr  "Hardcase" "CandyCase" "Backglass" "ClearCase" ...
##  $ Modal     : num  15 10 16 12 14
##  $ Harga     : num  25 15 28 20 18
##  $ Keuntungan: num  10 5 12 8 4
##  $ Penjualan : num  20 30 17 25 28

#Boxplot
casemarket2 <- casemarket[-1]
casemarket2

##   Modal Harga Keuntungan Penjualan
## 1    15    25         10        20
## 2    10    15          5        30
## 3    16    28         12        17
## 4    12    20          8        25
## 5    14    18          4        28

boxplot(casemarket2, main = "Boxplot Casemarket", col = "purple")

#Histogram
hist(casemarket$Harga, main = "Histogram Case", col = "yellow", xlab = "Harga Case", ylab = "Frekuensi")

#Korelasi
cor(casemarket2)

##                 Modal      Harga Keuntungan  Penjualan
## Modal       1.0000000  0.8796724  0.6637901 -0.8409452
## Harga       0.8796724  1.0000000  0.9396132 -0.9969973
## Keuntungan  0.6637901  0.9396132  1.0000000 -0.9627600
## Penjualan  -0.8409452 -0.9969973 -0.9627600  1.0000000