Cpp Main Loop Function In R