helix - Unnamed repository; edit this file 'description' to name the repository.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

f <- function(x) {
  total <- 0
  for (v in x) {
    if (v > 0) {
      total <- total + v
    } else {
      total <- total - v
    }
  }
  result <- lapply(
    items,
    process
  )
  total
}