numerical expression has 20 elements怎么回事？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在尝试自己编写acf函数的时候出现标题里的问题 希望得到大家的帮助！

以下是我的代码：

1. myacf<-function(j){
   
2.    u=mean(data)
   
3.    T=1:201
   
4.    len.T=length(T)
   
5.    a1=data[1:(len.T-j)]
   
6.    a2=data[(j+1):len.T]
   
7.    a3=data
   
8.    m=sum((a1-u)*(a2-u))/sum((a3-u)*(a3-u))
   
9.    return(m)
   
10. }

复制代码

这样写下来得到每一个单独的myacf(j)都是正确的（和acf()的结果比较）
但是当我想看到一系列myacf(j)的值的时候就有问题了（如下图）

1. myacf(1:20)
   
2. [1] 0.578272
   
3. Warning messages:
   
4. 1: In 1:(len.T - j) :
   
5.   numerical expression has 20 elements: only the first used
   
6. 2: In (j + 1):len.T :
   
7.   numerical expression has 20 elements: only the first used

复制代码

不知道应该用什么方法解决这个问题？大大们快教教我QAQ

(不要问我为什么要自己写acf代码...我们老师就是个坑...

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Expression Numerical Elements numeric express expression function elements return

sapply(1:20,myacf)

就是你写的函数没有向量化。
你可以试试：

1. myacf2 <- Vectorize(myacf)
   
2. myacf2(1:20)

复制代码

suimong 发表于 2015-12-29 22:00
就是你写的函数没有向量化。
你可以试试：

可以了！非常感谢！！

非常感谢 刚好也是报这个问题