关于回归及循环的求助！！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

是这样，我有一个8列12行的数据框sumdata，想对任意两列做回归，并且回归的时候从12行数据中去掉两行，选出拟合效果最好的10行，最后导出系数的一个矩阵。
R的初学者，目前想到可以用for循环做，但大神们都说很鄙视只会用for循环的，所以求助怎么转换成apply函数做，谢谢大家~
代码如下：

1. actact1<-matrix(0,ncol=8,nrow=8)
   
2. actact2<-matrix(0,ncol=8,nrow=8)
   
3. 
   
4. for (i in 2:9){
   
5.     for (j in 2:9){
   
6.         if (i==j){
   
7.            actact1[i-1,j-1]<-0
   
8.            actact2[i-1,j-1]<-0
   
9.           }else{
   
10.            r2<-0
    
11.            coe<-0
    
12.            for (x in 1:12){
    
13.                for (y in x:12){
    
14.                        del0<-c(x,y)
    
15.                        lmt<-lm(sumdata[-del0,i]~sumdata[-del0,j])
    
16.                        if (summary(lmt)$r.squared>r2){
    
17.                        del<-del0
    
18.                        r2<-summary(lmt)$r.squared
    
19.                        coe<-summary(lmt)$coefficients[2,1]
    
20.                        }
    
21.                }        
    
22.            }
    
23.            actact1[i-1,j-1]<-coe
    
24.            actact2[i-1,j-1]<-r2
    
25.         }               
    
26.     }
    
27. }

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：apply函数 for循环 apply appl Data