Använd lapply med extra argument
I videon omvandlades funktionen triple() till funktionen multiply() för att möjliggöra ett mer generellt tillvägagångssätt. lapply() hanterar funktioner som kräver mer än ett argument, till exempel multiply():
multiply <- function(x, factor) {
x * factor
}
lapply(list(1,2,3), multiply, factor = 3)
Till höger finns en generell version av de urvalsfunktioner du kodat tidigare: select_el(). Den tar en vektor som första argument och ett index som andra argument, och returnerar vektorns element vid det angivna indexet.
Den här övningen är en del av kursen
R för medelnivå
Övningsinstruktioner
Använd lapply() två gånger för att anropa select_el() över alla element i split_low: en gång med index lika med 1 och en gång med index lika med 2. Tilldela resultaten till names respektive years.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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