Suming vectors in R?

Question

I have this two functions:

Hwave_1 <- function(t) {
  ifelse(0 <= t & t <= 1 / 2, t, ifelse(1 / 2 < t & t <= 1, 1 - t, 0))
}


HaarI &l