运用R语言的gWQS软件包进行WQS回归分析

问题遇到的现象和发生背景

运用R语言的gWQS软件包进行WQS回归分析的时候，运行了以下代码报错

问题相关代码，请勿粘贴截图

library(xlsx)
library(gWQS)
database<-read.xlsx("C:/Users/Debbie/Desktop/1.xlsx",1,header=T)
Metals <- names(database)[1:23]
results <- gwqs(yLBX~wqs, mix_name = Metals, data=database,
q = 4, validation = 0.6,
b = 100, b1_pos = TRUE, b1_constr = FALSE,
family = "gaussian", seed = 2022)

运行结果及报错内容

Error in [.data.frame(data, , c(allvars, mix_name, other_vars)) :
选择了未定义的列

我的解答思路和尝试过的方法

尝试改变了代码的书写但是仍然报这个错误

我想要达到的结果

不知道是excl里面的数据出现了错误还是代码书写的错误