出warning了，请问怎么回事？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有这么一段代码，出现了错误
for(i in n.Portfolio){
  Portfolio.i <- Portfolio[Portfolio$stkcd == i,]
  n.dayi <- dim(Portfolio.i)[1]
  day <- c(1: n.dayi)
  Portfolio.i <- cbind(Portfolio.i, day)
  Begin.i <- factor(Portfolio.i[(Portfolio.i$date == Portfolio.i$infopubdt), 11])
  End.i <- Begin.i + 60
    ifelse(End.i > n.dayi, a <- a + 1,
           (ifelse(i == 1000004, Port <- (Portfolio.i[(Begin.i : End.i), ]),
                   Port <- rbind(Port, (Portfolio.i[(Begin.i : End.i), ])))))
}
Warning messages:
1: In Begin.i:End.i :
  numerical expression has 4 elements: only the first used

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：warning Warn ning ING War warning factor

1. for(i in n.Portfolio){
   
2.   Portfolio.i <- Portfolio[Portfolio$stkcd == i,]
   
3.   n.dayi <- dim(Portfolio.i)[1]
   
4.   day <- c(1: n.dayi)
   
5.   Portfolio.i <- cbind(Portfolio.i, day)
   
6.   Begin.i <- factor(Portfolio.i[(Portfolio.i$date == Portfolio.i$infopubdt), 11])
   
7.   End.i <- Begin.i + 60
   
8.     ifelse(End.i > n.dayi, a <- a + 1,
   
9.            (ifelse(i == 1000004, Port <- (Portfolio.i[(Begin.i : End.i), ]),
   
10.                    Port <- rbind(Port, (Portfolio.i[(Begin.i : End.i), ])))))
    
11. }

复制代码

你确定你“grouping variables are all factors”嘛？～～～
如果不是，就会出现这样的错误
关于因子（factor），这里有一篇比较详细的介绍，可以看一下:
http://www.dengfeilong.com/post/factor.html

给顶起来。。。。