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