Výchozí hodnota NULL
Funkce cut(), kterou využívá cut_by_quantile(), umí automaticky generovat rozumné popisky pro každou kategorii. Kód pro jejich vytvoření je poměrně složitý, takže se nezobrazuje přímo v signatuře funkce — argument labels má výchozí hodnotu NULL a podrobnosti o výpočtu najdeš na stránce nápovědy funkce cut() (dokumentace).
Toto cvičení je součástí kurzu
Introduction to Writing Functions in R
Pokyny k cvičení
- Uprav definici funkce
cut_by_quantile()tak, aby argumentlabelsměl výchozí hodnotuNULL. - Odstraň argument
labelsz volání funkcecut_by_quantile().
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# 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]"
)