R Solution