Latihan

#Membuat beberapa peubah

Nama <- c("Raiyen", "Tono", "Jarbi", "Asep", "Kurniawan")
Tinggi <- c(178, 180, 188, 166, 169)
Berat <- c(77,80,82,69,70)
Umur <- c(19,25,21,20,19)
Ukuransepatu <-c(40,43,45,40,41)

#Membuat data frame dari peubah

datadiri <- data.frame(Nama,Tinggi,Berat,Umur,Ukuransepatu)
datadiri

##        Nama Tinggi Berat Umur Ukuransepatu
## 1    Raiyen    178    77   19           40
## 2      Tono    180    80   25           43
## 3     Jarbi    188    82   21           45
## 4      Asep    166    69   20           40
## 5 Kurniawan    169    70   19           41

#Membuat Rangkuman dari tabel datadiri

summary(datadiri)

##      Nama               Tinggi          Berat           Umur     
##  Length:5           Min.   :166.0   Min.   :69.0   Min.   :19.0  
##  Class :character   1st Qu.:169.0   1st Qu.:70.0   1st Qu.:19.0  
##  Mode  :character   Median :178.0   Median :77.0   Median :20.0  
##                     Mean   :176.2   Mean   :75.6   Mean   :20.8  
##                     3rd Qu.:180.0   3rd Qu.:80.0   3rd Qu.:21.0  
##                     Max.   :188.0   Max.   :82.0   Max.   :25.0  
##   Ukuransepatu 
##  Min.   :40.0  
##  1st Qu.:40.0  
##  Median :41.0  
##  Mean   :41.8  
##  3rd Qu.:43.0  
##  Max.   :45.0

#Eksplorasi Data Histogram

datacleartable <- datadiri [-1]
boxplot(datacleartable, main="Boxplot", col = 'blue')

#Korelasi

cor(datacleartable)

##                 Tinggi     Berat      Umur Ukuransepatu
## Tinggi       1.0000000 0.9770124 0.4110071    0.8241472
## Berat        0.9770124 1.0000000 0.5588750    0.7797210
## Umur         0.4110071 0.5588750 1.0000000    0.5464837
## Ukuransepatu 0.8241472 0.7797210 0.5464837    1.0000000