Skip to content

Instantly share code, notes, and snippets.

@arisetyo
Last active August 29, 2015 14:03
Show Gist options
  • Save arisetyo/293712ffabc5c2925454 to your computer and use it in GitHub Desktop.
Save arisetyo/293712ffabc5c2925454 to your computer and use it in GitHub Desktop.
Membaca statistik dari data pendaftar PPDB (http://www.ppdbkotabandung.web.id/) SMA Kota Bandung 2014-2015.
pendaftarSummary <- function(highschool) {
filename <- paste(highschool,".csv", sep="")
tmp <- read.csv(filename)
S <- summary(tmp$Jumlah.UN)
L <- length(tmp$No)
list(S = S, L = L)
}
# Cara penggunaan:
# Masuk ke menu "Data Pendaftar", klik "Detail".
# Copy-paste data ke file CSV (contoh: 5.csv).
# Rename nama kolom menjadi: No, No.Pendaftaran, No.UN, Nama, Status, Jumlah.UN, Aksi.
# pendaftarSummary(namasekolah)$S untuk summary statistik
# pendaftarSummary(namasekolah)$L untuk jumlah data.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment