Pertemuan 2

Install 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

vektor

nama_a <- c("Ariq", "Budi", "Citra", "Danu", "Egar", "Fahri", "Geo", "Hanum", "Isil", "Jagar")

bb_a <- c(67, 67, 45, 43, 51, 80, 50, 47, 65, 60)

tb_a <- c(175, 167, 159, 163, 151, 180, 160, 177, 165, 171)

kelas_a <- data.frame(nama_a, bb_a, tb_a)

mean(kelas_a$bb_a)

## [1] 57.5

cat("mean bb: ", mean(kelas_a$bb_a), "kg")

## mean bb:  57.5 kg

median(kelas_a$bb_a)

## [1] 55.5

mode(kelas_a$bb_a)

## [1] "numeric"

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

modus_bba <- modus(bb_a)
cat("modus bb a: ", modus_bba, "kg")

## modus bb a:  67 kg

range_bba <- range(bb_a)
cat("range nya:", range_bba)

## range nya: 43 80

range(bb_a)

## [1] 43 80

var_bba <- var(bb_a)
cat("variansi nya: ", var_bba)

## variansi nya:  147.1667

sd_bba <- sd(bb_a)
cat("sd nya: ", sd_bba)

## sd nya:  12.13123

hist(kelas_a$bb_a, col = "pink",
     main = "Histogram berat bafdan mahasiswa kelas a",
     xlab = "berat badan(kg)")

boxplot(kelas_a$bb_a, col = "cyan",
        main = "boxplot berat badan mahasiswa kelas a",
        xlab = "berat badan(kg)")