nilai <- c(70, 75, 80, 85, 85, 90, 95, 100,
60, 77, 85, 90, 98, 68, 92, 85,
66, 75, 80, 72, 84, 50, 69, 76,
80, 90, 95, 88, 77, 75)
mean(nilai) # rata-rata
## [1] 80.4
median(nilai) # median
## [1] 80
sd(nilai) # standar deviasi
## [1] 11.48792