Kontrollfluss und Funktionen

x <- 7
if (x > 5) {
  print("groß")
} else if (x > 2) {
  print("mittel")
} else {
  print("klein")
}
y <- if (x %% 2 == 0) "gerade" else "ungerade"
y

for (i in 1:3) cat("i =", i, "\n")
for (name in c("Mia", "Tom")) cat("Hallo", name, "\n")

n <- 3
while (n > 0) { cat(n, ""); n <- n - 1 }
cat("\n")
i <- 0
repeat { i <- i + 1; if (i == 2) next; if (i > 4) break; cat(i, "") }
cat("\n")

switch("b", a = "Apfel", b = "Birne", "unbekannt")
switch(2, "eins", "zwei", "drei")

[1] "gro\303\237"
[1] "ungerade"
i = 1
i = 2
i = 3
Hallo Mia
Hallo Tom
3 2 1
1 3 4
[1] "Birne"
[1] "zwei"

zahlen <- 1:10
# Schleife
quadrate <- numeric(length(zahlen))
for (i in seq_along(zahlen)) quadrate[i] <- zahlen[i]^2
# Vektorisiert (besser):
identical(quadrate, zahlen^2)
sapply(1:5, function(i) i * 10)
Reduce(function(a, b) a * b, 1:6)
vapply(c("a", "bb", "ccc"), nchar, integer(1))

[1] TRUE
[1] 10 20 30 40 50
[1] 720
  a  bb ccc
  1   2   3

quadrat <- function(x) x^2
gruss <- function(name = "Welt", laut = FALSE) {
  text <- paste0("Hallo, ", name, "!")
  if (laut) text <- toupper(text)
  text                     # letzter Ausdruck = Rückgabewert
}
statistik <- function(x, na.rm = TRUE) {
  list(mittel = mean(x, na.rm = na.rm), sd = sd(x, na.rm = na.rm), n = sum(!is.na(x)))
}
summe_alle <- function(...) sum(...)
optionen <- function(...) names(list(...))

quadrat(7)
gruss()
gruss("Mia", laut = TRUE)
statistik(c(2, 4, 4, 4, 5, 5, 7, 9))$mittel
summe_alle(1, 2, 3, 4)
optionen(farbe = "rot", groesse = 3)
(function(x) x + 1)(41)
sapply(1:3, \(i) i * 2)         # Kurzschreibweise \(x) seit R 4.1
fakultaet <- function(n) if (n <= 1) 1 else n * fakultaet(n - 1)
fakultaet(10)
args(gruss)
is.function(gruss)

[1] 49
[1] "Hallo, Welt!"
[1] "HALLO, MIA!"
[1] 5
[1] 10
[1] "farbe"   "groesse"
[1] 42
[1] 2 4 6
[1] 3628800
function (name = "Welt", laut = FALSE)
NULL
[1] TRUE

zaehler <- function() {
  n <- 0
  function() { n <<- n + 1; n }        # <<- ändert die äußere Variable
}
z <- zaehler()
z(); z(); z()

sicher_teilen <- function(a, b) {
  if (b == 0) stop("Division durch null")
  a / b
}
ergebnis <- tryCatch(sicher_teilen(1, 0),
  error = function(e) paste("Fehler:", conditionMessage(e)),
  finally = cat("aufgeräumt\n"))
ergebnis
tryCatch(as.integer("x"), warning = function(w) paste("Warnung:", conditionMessage(w)))
res <- try(log(-1), silent = TRUE)
res
inherits(try(stop("x"), silent = TRUE), "try-error")
stopifnot(is.numeric(1), 1 + 1 == 2)
tryCatch(stopifnot("x muss positiv sein" = -1 > 0), error = function(e) conditionMessage(e))

[1] 1
[1] 2
[1] 3
aufgeräumt
[1] "Fehler: Division durch null"
[1] "Warnung: NAs introduced by coercion"
[1] NaN
[1] TRUE
[1] "x muss positiv sein"