Help in Bissection algorithm

I'm trying to make a function witch recieves a function "f", "a" and "b", and
the error "e". When I run the algorithm without labeling it a function and
typing the values it works, but when I just try to save it in a function It
doesn't ' bug but don't do anything. Here's the code, anyone know whats
happening?
raiz=function(f,a,b,e){
  repeat{
    if(i>50){break}
    if(abs(a-b)<e){m=(a+b)/2
                  raiz1=m}
    if(abs(a-b)>e){
          m=(a+b)/2
          af=f(a)
           if((af*f(m))>0){a=m}
           if((af*f(m))<0){b=m}}
        i=i+1}}



--
View this message in context: http://r.789695.n4.nabble.com/Help-in-Bissection-algorithm-tp4651295.html
Sent from the R help mailing list archive at Nabble.com.