R语言 as.formula(paste.)出错

我在这一个回归分析，即WQS回归（函数为gwqs（））时，因为要用For循环，多次运行gwqs，故准备代码如下：

for (i in 1:length(a1)) {
  equation<-as.formula(paste("be_told_CHD_ ~ wqs+Age_at_scre+sex+Race+ann_family_income+Marital_Status+insurance_YN
               +BMI,mix_name =",a1[i],"data = Envi_LS_9914_CVD, q = 10, validation = 0.6, b = 200, b1_pos = TRUE, b1_constr = FALSE, family = 'binomial', seed = 2016",sep=""))
  results<-gwqs(equation)

#整理结果
r1<-data.frame(exp(coef(results)))
r11<-row.names(r1)
r1<-cbind(r1,r11)  
r2<-data.frame(exp(confint(results)))
r11<-row.names(r2)
r2<-cbind(r2,r11) 

Outcomes<-left_join(r1,r2,by='r11')
names(Outcomes)[1:2]<-c("OR","Variables")
Outcomes$CI<-paste(sprintf("%0.2f",Outcomes$OR),"(",sprintf("%0.2f",Outcomes$X2.5..),
                   "-",sprintf("%0.2f",Outcomes$X97.5..),")",sep = "")
Outcomes<-Outcomes[,-c(3:4)]; Outcomes<-select(Outcomes,2,1,3)
Outcomes$OR<-sprintf("%0.2f",Outcomes$OR)

Outcomes2<-subset(Outcomes,Outcomes$Variables=='wqs')
name_wqs<-paste("wqs",i,sep = "")
names(Outcomes2)[1]<-name_wqs

dd<-rbind(dd,Outcomes2)
 }

但是报错如下：
Error in str2lang(x) ::2:32: unexpected ','
1: be_told_CHD_ ~ wqs+Age_at_scre+sex+Race+Edu_20y_old+ann_family_income+Marital_Status+Type_work_last_w+insurance_YN
2: +BMI+LS_median_4,
^

请问什么原因？

错误类型出现在逗号那里，as.formula应该是不能把参数加进去的，前面只留有“be_told_CHD~...+BMI就可以，所以后面那一串mix_name=什么之类的参数你可能要加在gwqs那块

解决了吗