added the survival function f(r)