R in action求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

R in Action求助

polyphgia

library(leaps)
states<-as.data.fr ame(state.x77[,c("Murder","Population",
                                   "Illiteracy","Income","Frost")])
leaps<-regsubsets(Murder~Population+Illiteracy+Income+Frost,
                  data = states, nbest = 4)

subsTable<-function(obj){
  x<-summary(leaps)
  m<-cbind(round(x[[scale]],3),x$which[,-1])
  colnames(m)[1]<-scale
  m[order(m[,1]),]
}

subsTable(leaps,scale = "adjr2")

最后一步报错：
Error in subsTable(leaps, scale = “adjr2”) : 参数没有用(scale = “adjr2”)
我试了一下，function里面的

m<-cbind(round(x[[scale]],3),x$which[,-1])

这一步报错：
Error in x[[scale]] : 类别为’closure’的下标不对
看不懂求解

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Action ACT CTI TIO Library

函数参数里面少了一个scale参数，应该是subsTable <- function(obj, scale) { ... }