for循环

// 输入代码内容
x <- c(1,2,3,4)
s=0
for (i in x){
  s=s+i
  print(c(i,s))
}
#总共把x中所有元素做一遍

// 输入代码内容
result=list()
x <- c(5,6,0,3)
s = 0
for (i in 1:length(x)){
  s=s+x[[i]]
  result[[i]]=c(x[[i]],s)

do.call(cbind,result) #批量将result结合成一个矩阵，进行简化