将varImp输出存储到矩阵

我有一个包含117个变量和1000个案例（即行）的数据框架。我正在使用

varImp{caret}

运行一个包含100次迭代的PLS模型

我想将

varImp（）

输出的变量名称和总值存储在117x100的矩阵中

如何在矩阵中存储

varImp（）

输出。我试过：

a1 <- matrix(0,127,100)
a2 <- varImp(model.D60, scale = TRUE)
a3 <- varImp(model.D60, scale = TRUE)$importance

a1这很简单：

> library(caret)
> 
> set.seed(1)
> dat <- SLC14_1(200)
> 
> set.seed(2)
> mod <- train(y ~ ., data = dat, 
+              method = "pls",
+              preProc = c("center", "scale"),
+              tuneLength = 10)
> 
> ## what's inside?
> str(varImp(mod))
List of 3
$ importance:'data.frame':  20 obs. of  1 variable:
  ..$ Overall: num [1:20] 24.936 0.174 27.584 21.314 34.648 ...
$ model     : chr "pls"
$ calledFrom: chr "varImp"
- attr(*, "class")= chr "varImp.train"
> 
> ## This is a data frame:
> str(varImp(mod)$importance)
'data.frame':   20 obs. of  1 variable:
  $ Overall: num  24.936 0.174 27.584 21.314 34.648 ...
> 
> ## convert to matrix
> imps <- as.matrix(varImp(mod)$importance)

>库（插入符号）
> 
>种子（1）
>dat
>种子（2）
>国防部
>里面是什么？
>str（varImp（mod））
3人名单
$importance:'data.frame'：20 obs。第1个变量：
..$total:num[1:20]24.936 0.174 27.584 21.314 34.648。。。
$model:chr“pls”
$calledFrom:chr“varImp”
-属性（*，“类”）=chr“变量列”
> 
>##这是一个数据帧：
>str（变量（mod）$重要性）
“数据帧”：20 obs。第1个变量：
美元总额：数字24.936 0.174 27.584 21.314 34.648。。。
> 
>##转换为矩阵
>imps您是否可以提供一个可复制的示例，其中包含一小部分数据（在data.frame上使用
dput
）