If-else in R code

Question

I have data, something like this:

1.586077^+00
3.242631^-03
2.426304^-03
8.616781^-04
5.396826^-03
2.947846^-04
1.018943^+01
8.639457^-03
8.458051^-03
2.807870^+02

now I need a code which goes through these numbers and if the number is greater than 1, then it writes it down. If the number is less than 1, then it adds it till it hits the next number greater than 1 and then writes the sum from the beginning to that point.

Answer 1

x <- c(.5, 0.2, 2, 3.4, 0.4, 1.2, .2, .8, 2.3, 7.4)
result.final <- NULL
cumul.total <- 0
for (i in x) {
  cumul.total <- cumul.total + i
  if(i > 1){
    result <- cumul.total
  }
  else {
    next
  }
  result.final <- c(result.final, result)
}
result.final

I think this should do your job.