Data Mahasiswa Kelas B

#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

# Data kelas Stat B 
#Nama Mahasiswa
Nama_B <-c("nia", "Manda", "Nuri","Raya", "uci", "Shelfa", "tiqoh", "tya", "Ipeh", "Mutia")
#Berat badan Mahasiswa
bb_B <-c(41, 43, 44, 46, 47, 48, 50, 52, 55, 55)
# tinggi badan Mahasiswa
tb_B <-c(144, 145, 156, 160, 155, 168, 146, 177, 157, 154)
# data berat dan tinggi badan mahasiswsa 
Kelas_B <- data.frame(Nama_B, bb_B, tb_B)
Kelas_B

##    Nama_B bb_B tb_B
## 1     nia   41  144
## 2   Manda   43  145
## 3    Nuri   44  156
## 4    Raya   46  160
## 5     uci   47  155
## 6  Shelfa   48  168
## 7   tiqoh   50  146
## 8     tya   52  177
## 9    Ipeh   55  157
## 10  Mutia   55  154

# Rata- rata Berat badan Mahasiswa
mean_A <- mean(Kelas_B$bb_B)
cat("mean berat badan:", mean_A, "kg")

## mean berat badan: 48.1 kg

# median
median_bbB <- median (bb_B)
cat("median_bbB:", median_bbB, "kg")

## median_bbB: 47.5 kg

#Modus 
modus <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

modus_bbB <- modus(bb_B)
cat("modus_bbB:", modus_bbB, "kg", "\n")

## modus_bbB: 55 kg

#Lakukan perhitungan yang sama untuk tinggi badan!
#rata-rata tinggi badan mahasiswa
mean_A <- mean(Kelas_B$tb_B)
cat("mean tinggi badan:", mean_A, "cm")

## mean tinggi badan: 156.2 cm

# median
median_tbB <- median (tb_B)
cat("median_tbB:", median_tbB, "cm")

## median_tbB: 155.5 cm

#Modus 
modus <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}

modus_tbB <- modus(tb_B)
cat("modus_tbB:", modus_tbB, "cm", "\n")

## modus_tbB: 144 cm

 # menghitung range Berat badan Mahasiswa kelas B
range_bbB <- range(bb_B)
cat ("range bbB:", range_bbB, "\n")

## range bbB: 41 55

range_tbB <- range(tb_B)
cat ("range tbB:", range_tbB, "\n")

## range tbB: 144 177

#Menghitung variansi (keragaman)
var_bbB <- var(bb_B)
cat ("var_bbB", var_bbB, "\n")

## var_bbB 23.65556

# menghitung standar deviation (simpangan baku)
sd_bbB <- sd(bb_B)
cat("sd_bbB:", sd_bbB, "\n")

## sd_bbB: 4.863698

# membuat histogram berat badan mahhasiswa
hist(Kelas_B$bb_B, col = "pink", 
     main = "Histogram Berat Badan Mahasiswa Kelas B", 
     xlab = "Berat Badan (kg)")

# membuat histogram tinggi badan mahhasiswa
hist(Kelas_B$tb_B, col = "orange", 
     main = "Histogram Tinggi Badan Mahasiswa Kelas B", 
     xlab = "  Tinggi Badan (kg)")

boxplot(Kelas_B$bb_B, col = "yellow", main= "Boxplot Berat Badan Mahasiswa Kelas B")

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

Komputasi Statistika D

Nia Andini

2025-08-14

R Markdown

Data Mahasiswa Kelas B

Including Plots