Started R Calculations