R（循环）中的向后选择：$运算符对原子向量无效

Question

这是我的代码：

DF <- data.frame(male_data)
Cols <- names(DF)
Cols <- Cols[! Cols %in% "male_data$y"]
n <- length(Cols)
id <- unlist(
lapply(1:6,
function(i)combn(1:6,i,simplify=FALSE)
)
,recursive=FALSE)

Formulas <- sapply(id,function(i)
paste("male_data$y~",paste(Cols[i],collapse="+")))

lapply(Formulas,function(i)
summary,step(Formulas, direction = "backward", trace=FALSE ))

为什么我会收到此错误：

  

错误：$运算符对原子矢量无效