r语言入门小函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

rise<-function(x)
+ {
+      for(i in 2:length(x)){
+       rise[i]<-(x[i]-x[i-1])/x[i]}
+    return(rise[i])
+ }
以上代码是本人编写的关于计算一组数据同比增长率的函数，error中显示Error in rise[i] <- (x[i] - x[i - 1])/x[i] :
  object of type 'closure' is not subsettable
>
大神请答复这是为什么？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：r语言入门 R语言 rise RIS function return 增长率 error Error

先看看哈

先谢楼主分享

rise <- function(x)
{
for(i in 2:length(x)){
y[i] <- (x[i]-x[i-1])/x[i-1]}
return (y)
}

你的函数名为rise 所以返回的时候最好不要用rise作为变量了
另外相除的时候应该为x[i-1]，而且要先对y赋空值 y <- rep(NA,length(x)-1)

亚米UM 发表于 2015-6-23 13:27
rise

谢谢你的帮助，另外，对y赋空值有必要吗？我没有对y赋空值也能运行出结果！

diff(x)/x[-1]