我尝试使用lapply进行回归,但我得到一个错误:
一个可复制的例子
set.seed(42)
n <- 6
juntar_blocs <- data.frame(id=1:n,
pond_total_index_blocs_iguals = sample(1:n),
unitatespecifica = sample(0:1,n, replace = TRUE),
responsable = sample(0:1,n, replace = TRUE),
actu_transv= sample(0:1,n, replace = TRUE),
util_rec_nuevo_pers = sample(0:1,n, replace = TRUE),
ord_aprob = sample(0:1,n, replace = TRUE),
pers_transp_tareas = sample(0:1, n, replace = TRUE),
util_rec_nuevo_pers = sample(0:1, n, replace = TRUE))
我的代码:
因变量和自变量的对象
dep<-list("pond_total_index_blocs_iguals")
variables_index_subst_ <- c("unitatespecifica", "responsable", "actutransv", "util_rec_nuevo_pers", "ord_aprob", "pers_transp_tareas", "util_rec_nuevo_pers")
数据库名为juntar_blocs。然后我写代码
models <- lapply(dep, function(x, y)
step(lm(as.formula(paste(x, paste(y, collapse="+"))), data=juntar_blocs),
direction="backward"), y = variables_index_subst_)
我得到这个错误
Error in str2lang(x) : <text>:1:31: unexpected symbol
1: pond_total_index_blocs_iguals unitatespecifica
谢谢你!
^
1条答案
按热度按时间wwwo4jvm1#
下面是一个非常类似的问题,并对错误进行了解释。When using sapply,I get Error in str2lang(x) : :1:31: unexpected symbol 1 ^
正如弗里克先生已经指出的那样,解决方案与增加波浪号相似。在示例中,“actu_transv”和“actutransv”之间也存在差异,这将引发错误。请注意,此解决方案会导致基于示例数据的不同错误。它说这一步不能执行,因为AIC是-无穷大。但这解决了你问的问题。