Click here for the answer

doubling[R_] :=  Log[2] / Log[1+R];