Gunakan lapply dengan argumen tambahan
Dalam video, fungsi triple() diubah menjadi fungsi multiply() untuk memungkinkan pendekatan yang lebih generik. lapply() menyediakan cara untuk menangani fungsi yang memerlukan lebih dari satu argumen, seperti fungsi multiply():
multiply <- function(x, factor) {
x * factor
}
lapply(list(1,2,3), multiply, factor = 3)
Di sebelah kanan, kami sertakan versi generik dari fungsi select yang sebelumnya Anda koding: select_el(). Fungsi ini menerima sebuah vektor sebagai argumen pertama, dan sebuah indeks sebagai argumen kedua. Fungsi ini mengembalikan elemen vektor pada indeks yang ditentukan.
Latihan ini adalah bagian dari kursus
R Tingkat Menengah
Petunjuk latihan
Gunakan lapply() dua kali untuk memanggil select_el() pada semua elemen dalam split_low: sekali dengan index sama dengan 1 dan sekali lagi dengan index sama dengan 2. Tetapkan hasilnya masing-masing ke names dan years.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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