1、for循环
sum = 0
for (i in 1:100) { sum = sum + i } print(sum)
1-100内偶数的和
sum = 0
for (i in 1:100) { if (i %% 2 == 0) { sum = sum + i } } print(sum)
扩展：
a <- c(2,4,5,7) b <- c(3,4,1,3) c <- data.frame(a,b) c sum = 0
for (i in c$b) { sum = sum + i } print(sum)
2、while循环
sum = 0 i = 100
while (i > 0) { sum = sum + i i = i - 1 } print(sum)
sum = 0 i = 1 j = 100
while (i <= j) { sum = sum + i i = i + 1 } print(sum)
求1-100内奇数的和
sum = 0 i = 100
while (i > 0) { if (i %% 2 != 0) { sum = sum + i } i = i - 1 } print(sum)
