Default NULL
Fungsi cut() yang digunakan oleh cut_by_quantile() dapat otomatis menyediakan label yang masuk akal untuk setiap kategori. Kode untuk menghasilkan label ini cukup rumit, sehingga alih-alih dituliskan langsung di tanda tangan fungsi, argumen labels memiliki nilai default NULL, dan rincian perhitungannya ditampilkan pada halaman bantuan cut() (docs).
Latihan ini adalah bagian dari kursus
Pengantar Penulisan Fungsi di R
Petunjuk latihan
- Perbarui definisi
cut_by_quantile()sehingga argumenlabelsbernilai defaultNULL. - Hapus argumen
labelsdari pemanggilancut_by_quantile().
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Set the default for labels to NULL
cut_by_quantile <- function(x, n = 5, na.rm = FALSE, labels, interval_type) {
probs <- seq(0, 1, length.out = n + 1)
qtiles <- quantile(x, probs, na.rm = na.rm, names = FALSE)
right <- switch(interval_type, "(lo, hi]" = TRUE, "[lo, hi)" = FALSE)
cut(x, qtiles, labels = labels, right = right, include.lowest = TRUE)
}
# Remove the labels argument from the call
cut_by_quantile(
n_visits,
labels = c("very low", "low", "medium", "high", "very high"),
interval_type = "(lo, hi]"
)