Gunakan lapply dengan fungsi Anda sendiri

Seperti yang dijelaskan Filip dalam video instruksional, Anda juga dapat menggunakan lapply() pada fungsi buatan Anda sendiri. Anda hanya perlu menulis fungsi baru dan memastikan fungsi tersebut tersedia di workspace. Setelah itu, Anda dapat menggunakan fungsi tersebut di dalam lapply() sebagaimana Anda melakukannya dengan fungsi-fungsi bawaan R.

Pada latihan sebelumnya Anda sudah menggunakan lapply() sekali untuk mengonversi informasi tentang ahli statistik perintis favorit Anda menjadi daftar vektor yang terdiri dari dua string karakter. Sekarang mari kita tulis kode untuk memilih nama dan tahun lahirnya secara terpisah.

Kode contoh sudah menyertakan kode yang mendefinisikan select_first(), yang menerima sebuah vektor sebagai masukan dan mengembalikan elemen pertama dari vektor tersebut.

Latihan ini adalah bagian dari kursus

R Tingkat Menengah

Lihat Kursus

Petunjuk latihan

Terapkan select_first() pada elemen-elemen split_low dengan lapply() dan simpan hasilnya ke variabel baru names.
Selanjutnya, tulis fungsi select_second() yang melakukan hal yang persis sama untuk elemen kedua dari sebuah vektor masukan.
Terakhir, terapkan fungsi select_second() pada split_low dan simpan keluarannya ke variabel years.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

# Code from previous exercise:
pioneers <- c("GAUSS:1777", "BAYES:1702", "PASCAL:1623", "PEARSON:1857")
split <- strsplit(pioneers, split = ":")
split_low <- lapply(split, tolower)

# Write function select_first()
select_first <- function(x) {
  x[1]
}

# Apply select_first() over split_low: names


# Write function select_second()




# Apply select_second() over split_low: years

Edit dan Jalankan Kode