想编一个小函数，function(w)为什么w是数组时只能返回第一个数？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

fx<-function(w=c())  {
  xx=0
  for (i in 1:4) {
    p<-w[i]*i
    xx<-xx+p
    return(xx)
  }}
以上为编写的函数，可以正常运行，但是循环只能返回w的第一个值w[1]，
例如当w<-c(0,1,1,1)时，
返回的xx值是0

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：function Fun CTI TIO UNC function

fx<-function(w=c())  {
  xx=0
  for (i in 1:4) {
    p<-w[i]*i
    xx<-xx+p
  }
    return(xx)
}

把return改成print?

iiooiookoo 发表于 2014-6-20 16:51
把return改成print?

改为print后输出的是一个向量，有四个数，最后一个数是我想要的和。 但是怎么输出一个值呢？我只想要求和

xupengswordsman 发表于 2014-6-20 16:45
fx

原来问题出在这   感谢！！

fx<-function(w){
      xx=0
      for(i in 1:4){
           p<-w[i]*i
           xx<-xx+p
          }
     xx
     }

beijuoooooo 发表于 2014-6-20 17:34
fx

感谢，确实是括号的原因

cumsum(w*seq_along(w))