EMZETT.if/else, for (x in v), while. Weil R vektorisiert ist, nutzt du oft statt Schleifen Funktionen wie ifelse() oder sapply(). Funktionen definierst du mit function; das letzte Ergebnis wird zurückgegeben. Argumente können Standardwerte haben.
Die apply-Familie (sapply, lapply) wendet eine Funktion auf jedes Element an.
quadrat <- function(x) x^2
quadrat(1:5)
gruss <- function(name, ausruf = "Hallo") {
paste0(ausruf, ", ", name, "!")
}
gruss("Mia")
noten <- c(95, 70, 40)
ifelse(noten >= 50, "bestanden", "durchgefallen")
sapply(c(1, 4, 9), sqrt)Merke
Funktionen mit
functionifelsearbeitet vektorisiertsapplywendet Funktionen auf alle Elemente an
Aufgabe
Schreibe eine Funktion, die den Mittelwert ohne `mean` berechnet.