如何编程实现将选出的变量名放到回归方程中

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有以下图中这个叫coefmatrix的矩阵。我想把非零对应的变量名找出来。
用了vname=rownames(coefmatrix)[which(coefmatrix!= 0)][-1]
vname得到想要的结果：
[1] "W."   "MIN"  "X3P." "FT."  "DREB" "REB"  "BLK"  "BLKA"
现在我想把选出的这些变量用到回归方程中
m=lm（y~之前选的变量名，data=dataset)
如何编程实现把结果[1] "W."   "MIN"  "X3P." "FT."  "DREB" "REB"  "BLK"  "BLKA" 变成W. +   MIN +  X3P. + FT. +  DREB + REB +  BLK +  BLKA并放到回归方程中“之前选的变量名”这个地方。这样就自动变成m=lm(y~W. +   MIN +  X3P. + FT. +  DREB + REB +  BLK +  BLKA, data=dataset)
多谢解答！

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：回归方程 dataset matrix DataS Names 如何

把y和vname下的数据cbind一下,命名新数据阵为datanew，列名为value(y的列名),W,MIN等等
m=lm（value~.，data=datanew)
.代表其他所有变量

万人往LVR 发表于 2015-7-21 12:00
把y和vname下的数据cbind一下,命名新数据阵为datanew，列名为value(y的列名),W,MIN等等
m=lm（value~.，da ...

这个思路完美解决问题。多谢啦

formu<-paste(vname,clapse='+')
formu<-paste('y',formu,sep='~')
lm(formu,data=dataset)

十里春风 发表于 2015-7-21 21:24
formu

这个也可以实现。

十里春风 发表于 2015-7-21 21:24
formu

追加一个问题。如何（用循环？）实现下面这种情况呢2015一直变到2000.然后把pred的所有结果放到一个数据框。谢谢
pred2015=predict(model,newdata=play2015)
pred2014=predict(model,newdata=play2014)
......
pred2000=predict(model,newdata=play2000)

成年蝌蚪 发表于 2015-7-22 02:32
追加一个问题。如何（用循环？）实现下面这种情况呢2015一直变到2000.然后把pred的所有结果放到一个数据框 ...

N<-2000:2015
pred<-paste('pred',N,sep='')
play<-paste('play',N,sep='')
dat<-lapply(seq_along(N),function(i)
  predict(model,newdata=play))
dat<-as.data.frame(dat)
names(dat)<-pred

十里春风 发表于 2015-7-22 09:45
N

问个别的问题
x <- 2015
play2015 <- 11
data <- paste("play",x,sep="")
会使data的值为"play2015"，如果想让data的值为play2015的值11，应该怎么办。（不用play2015直接赋值）

万人往LVR 发表于 2015-7-22 10:31
问个别的问题
x

assign(paste("play",x,sep="") ,11)

十里春风 发表于 2015-7-22 11:07
assign(paste("play",x,sep="") ,11)

多谢！其实get(paste("play",x,sep=""))就好了