Calculate Ic50 In R