अतिरिक्त आर्गुमेंट्स के साथ lapply का उपयोग करें
वीडियो में, अधिक जेनरिक तरीके के लिए triple() फंक्शन को multiply() फंक्शन में बदला गया था। lapply() ऐसे फंक्शनों को संभालने का तरीका देता है जिन्हें एक से अधिक आर्गुमेंट चाहिए, जैसे multiply() फंक्शन:
multiply <- function(x, factor) {
x * factor
}
lapply(list(1,2,3), multiply, factor = 3)
दाएँ तरफ हमने उन select फंक्शनों का एक जेनरिक वर्शन शामिल किया है जो आपने पहले कोड किए थे: select_el()। यह अपने पहले आर्गुमेंट के रूप में एक वेक्टर लेता है, और दूसरे आर्गुमेंट के रूप में एक इंडेक्स। यह दिए गए इंडेक्स पर वेक्टर का एलिमेंट रिटर्न करता है.
यह अभ्यास पाठ्यक्रम का हिस्सा है
इंटरमीडिएट R
अभ्यास निर्देश
lapply() का उपयोग दो बार करें ताकि split_low के सभी एलिमेंट्स पर select_el() को कॉल किया जा सके: एक बार index को 1 के बराबर रखकर और दूसरी बार index को 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