Використовуйте lapply з додатковими аргументами
У відео функцію triple() було перетворено на функцію multiply(), щоб зробити підхід універсальнішим. lapply() дозволяє працювати з функціями, які потребують більше ніж одного аргументу, як-от multiply():
multiply <- function(x, factor) {
x * factor
}
lapply(list(1,2,3), multiply, factor = 3)
Праворуч подано універсальну версію функцій вибору, які ви раніше писали: select_el(). Вона приймає вектор як перший аргумент і індекс як другий аргумент. Повертає елемент вектора за вказаним індексом.
Ця вправа є частиною курсу
Середній рівень R
Інструкції до вправи
Двічі застосуйте lapply(), щоб викликати select_el() для всіх елементів split_low: один раз з index, що дорівнює 1, і вдруге з індексом 2. Присвойте результати об'єктам names та years відповідно.
Інтерактивна практична вправа
Спробуйте виконати цю вправу, доповнивши цей зразок коду.
# Definition of split_low
pioneers <- c("GAUSS:1777", "BAYES:1702", "PASCAL:1623", "PEARSON:1857")
split <- strsplit(pioneers, split = ":")
split_low <- lapply(split, tolower)
# Generic select function
select_el <- function(x, index) {
x[index]
}
# Use lapply() twice on split_low: names and years