for-loop-vs-ifelse.R

set.seed(1)
vec <- runif(1000)
vec1 <- vec
print(paste0("Die beiden Vektoren sind identisch: ", all.equal(vec, vec1)))

print(paste0("Die Variante for-loop dauert: ", summary(microbenchmark::microbenchmark(
  for (i in 1:length(vec)) {
    if (vec[i] > 0.5) {vec[i] <- 10}
  }
), unit = "ms")$uq, "ms"))

print(paste0("Die Variante ifelse dauert: ", summary(microbenchmark::microbenchmark(
  vec1 <- ifelse(vec1 > 0.5, 10, vec1)
), unit = "ms")$uq, "ms"))

print(paste0("Die beiden Vektoren sind auch nach der Operation identisch: ", all.equal(vec, vec1)))