R中训练集（交叉值）的特征选择

如何使用“插入符号”应用训练集的特征选择？ 如果有这样一个例子就好了

Daten = data.frame(Daten)
cn <- colnames(Daten)

for (i in cn[401:ncol(Daten)]) {
  set.seed(222)
  CF <- createFolds(Daten[,i], k = 10 , list = TRUE , returnTrain = TRUE)
  for(p in CF) {
  trSet <- data.frame(cbind(Daten[p,1:100], i=Daten[p,i])) 
  tsSet <- data.frame(cbind(Daten[-p,1:100], i=Daten[-p,i]))
  tr<-train(
  as.formula(paste(i, "~.", sep = "")), 
  trSet , 
  method = "lm",
  trControl = trainControl() 
)

Daten=data.frame（Daten）
cn如果你想要一个插入符号解决方案，请看一下
filterVarImp
函数。我看了它，但它不起作用。应该是这样还是别的什么滤波器