求教，为什么这个是错的

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

> xtemp
   V1 V2 V3 V4 V5
1   5  5  4  4  3
2   5  5  4  4  4
3   3  4  2  3  2
4   5  5  2  2  4
5   1  4  5  2  4
6   2  3  5  2  3
7   3  3  2  2  4
8   4  4  2  2  2
9   1  4  4  2  2
10  2  4  4  3  5
11  2  2  2  1  2
12  1  3  1  1  2
> xx <- array(NA,c(6,5,2))
> for (ii in 1:12){
+    if (ii %% 2 == 0){
+       xx[ii/2,,2] <- xtemp[ii,]
+     }else{
+       xx[(ii+1)/2,,1] <- xtemp[ii,]
+ }}
Error in xx[ii/2, , 2] <- xtemp[ii, ] : 下标数目不对
>

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Temp For TEM

我的目的是将xtemp的数据按照行数单双分开

1. xx <- array(NA,c(6,5,2))
   
2. for (ii in 1:12){
   
3. if (ii %% 2 == 0){
   
4.   xx[ii/2,,2] <- as.numeric(xtemp[ii,])
   
5.   }else{
   
6.   xx[(ii+1)/2,,1] <- as.numeric(xtemp[ii,])
   
7. }}

复制代码

zhou1_20 发表于 2016-8-2 14:19

完美解决，谢谢啦！我想问一下出错原因是什么？因为我再读取数据时经常出现这种情况！

该用户名不得 发表于 2016-8-3 13:25
完美解决，谢谢啦！我想问一下出错原因是什么？因为我再读取数据时经常出现这种情况！

xtemp[ii,] 是个一维数据框，而不是向量