我们说我有以下载体:
x <- c(5, 6, 3, 7, 5, 2, 6, 7, 5, 3, 1, 5, 6)
我想用参数n创建一个函数,它产生前n个元素的总和。
答案 0 :(得分:5)
这个怎么样?
x <- c(5,6,3,7,5,2,6,7,5,3,1,5,6)
sumfun<-function(x,start,end){
return(sum(x[start:end]))
}
x <- c(5,6,3,7,5,2,6,7,5,3,1,5,6)
> sumfun(x,1,3)
[1] 14