The condition has length greater than 1 in function evaluation

Question

I have this two functions:

Hwave<-function(t){
  if((0<=t & t<=1/2)){
    resultado<-t
  }else if((1/2