Fixed issue with find_R2. R_1 was not initialized as expected by
function.