mandarelsabrinaafifah

#harga jual album nct
Hot.Sauce <- c(100,200,300,400,500)
Hot.Sauce

## [1] 100 200 300 400 500

#harga jual album nct
Candy <- c(150,200,250,300,350)
Candy

## [1] 150 200 250 300 350

#harga jual album nct
chewing.gum <- c(150,250,350,450,550)
chewing.gum

## [1] 150 250 350 450 550

#harga jual album nct
Boom <- c(100,300,500,600,700)
Boom

## [1] 100 300 500 600 700

#harga jual album nct
Hello.Future <- c(100,200,350,400,500)
Hello.Future

## [1] 100 200 350 400 500

Harga.album <- data.frame(Hot.Sauce,Candy,chewing.gum,Boom,Hello.Future)
Harga.album

##   Hot.Sauce Candy chewing.gum Boom Hello.Future
## 1       100   150         150  100          100
## 2       200   200         250  300          200
## 3       300   250         350  500          350
## 4       400   300         450  600          400
## 5       500   350         550  700          500

boxplot(Harga.album, main="Album NCT", col="red")

hist(Harga.album$Candy, main="Album NCT", col="blue")

cor(Harga.album)

##              Hot.Sauce     Candy chewing.gum      Boom Hello.Future
## Hot.Sauce    1.0000000 1.0000000   1.0000000 0.9847982    0.9901475
## Candy        1.0000000 1.0000000   1.0000000 0.9847982    0.9901475
## chewing.gum  1.0000000 1.0000000   1.0000000 0.9847982    0.9901475
## Boom         0.9847982 0.9847982   0.9847982 1.0000000    0.9945975
## Hello.Future 0.9901475 0.9901475   0.9901475 0.9945975    1.0000000