r语言循环求和