R Markdown

install.packages(“dplyr”)

library(dplyr)
## Warning: package 'dplyr' was built under R version 4.4.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

Including Plots

Membuat vektor

##      Nama berat_badan tinggi_badan
## 1    Yogi          80          180
## 2   Alika          60          170
## 3  Nandar          65          187
## 4   Razha          70          175
## 5  Fakhri          90          185
## 6    Ariq          50          190
## 7   Ilham          75          174
## 8   Ahmad          85          182
## 9     Geo          76          172
## 10 Rasyid          58          160

mean

mean(data_kelas_D$berat_badan)
## [1] 70.9
mean(data_kelas_D$tinggi_badan)
## [1] 177.5

Modus

modus <- function(x){
  ux <- unique(x)
  ux[which.max(tabulate(match(x,ux)))]
}
modus_bb <- modus(berat)
print(modus_bb)
## [1] 80

Penyebaran Data

range_berat_badan <- range(berat)
cat("range berat badan kelas D :", range_berat_badan)
## range berat badan kelas D : 50 90
range_tinggi_badan <- range(tinggi)
cat(" dan range tinggi badan kelas D :", range_tinggi_badan)
##  dan range tinggi badan kelas D : 160 190

variansi

variansi_bb <- var(berat)
cat("variansi berat badan kelas D :", variansi_bb)
## variansi berat badan kelas D : 160.7667
variansi_tb <- var(tinggi)
cat(" dan variansi tinggi badan kelas D :", variansi_tb)
##  dan variansi tinggi badan kelas D : 82.27778

visualisasi data

hist(data_kelas_D$tinggi_badan, col = "blue", xlab = "Berat Badan", main = "Data kelas D")

# Boxplot

boxplot(data_kelas_D$berat_badan,col = "black", main = "Boxplot Berat Badan")