#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

Ukuran Penyebaran Data

#nama mahasiswa
nama <- c("Lutfiatin", "Chevroline", "Najwa", "Talitah", "Syarifah","Adit","Aqmarine","Christya","Jan","Atika")

#berat badan mahasiswa
bb <- c(45,42,43,46,50,55,52,48,60,47)

#tinggi badan mahasiswa
tb <- c(165,160,162,163,158,167,159,155,170,168)

#data berat badan dan tinggi mahasiswa
kelas <- (data.frame(nama,bb,tb))
#MEAN
mean <- mean(bb)
cat("mean berat badan:", mean, "kg")
## mean berat badan: 48.8 kg
#MEDIAN
median <- median(bb)
cat("median berat badan:", median, "kg", "\n")
## median berat badan: 47.5 kg
#MODUS
modus <- function(x){
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

modus <- modus(bb)
cat("modus berat badan:", modus, "kg", "\n")
## modus berat badan: 45 kg
#MEAN
mean <- mean(tb)
cat("mean tinggi badan:", mean, "cm")
## mean tinggi badan: 162.7 cm
#MEDIAN
median <- median(tb)
cat("median tinggi badan:", median, "cm", "\n")
## median tinggi badan: 162.5 cm
#MODUS
modus <- function(x){
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

modus <- modus(tb)
cat("modus tinggi badan:", modus, "cm", "\n")
## modus tinggi badan: 165 cm
range <- range(bb)
cat("range bb:", range, "\n")
## range bb: 42 60
range <- range(tb)
cat("range tb:", range, "\n")
## range tb: 155 170
var <- var(bb)
cat("var bb:", var, "\n")
## var bb: 31.28889
var <- var(tb)
cat("var tb:", var, "\n")
## var tb: 23.12222
sd <-sd(bb)
cat("sd bb:", sd, "\n")
## sd bb: 5.593647
sd <-sd(tb)
cat("sd tb:", sd, "\n")
## sd tb: 4.808557

jdi kita tau seberapa jauh data tersebut dapat menyebar

Visualisasi Data

hist(kelas$bb, col='pink',
     main="Histogram Berat Badan Mahasiswa",
     xlab= "Berat Badan (kg)")

hist(kelas$tb, col='pink',
     main="Histogram Tinggi Badan Mahasiswa",
     xlab= "Tinggi Badan (cm)")

boxplot(kelas$bb, col='pink',
     main="Boxplot Berat Badan Mahasiswa Kelas A",
     xlab= "Berat Badan (kg)")

boxplot(kelas$tb, col='pink',
     main="Boxplot Berat Badan Mahasiswa Kelas A",
     xlab= "Tinggi Badan (kg)")