我必须使用我的数值变量训练集来规范化我的测试集。我做过这样的事情：
testData$varnum1 <- (testData$varnum1 - mean(trainData$varnum1)) / sd(trainData$varnum1)
testData$varnum2 <- (testData$varnum2 - mean(trainData$varnum2)) / sd(trainData$varnum2)
...
testData$varnumN <- (testData$varnumN - mean(trainData$varnumN)) / sd(trainData$varnumN)
如何使用某些“应用”功能或类似功能简化此代码以更一般地执行此操作？
更新：我认为建议的帖子无法解决我的问题。我的代码有效但不通用，因为每个数字var都有一个代码行。我只需要知道它是如何更通用的。我不能使用scale函数，因为我的规范化使用了训练集和测试集。我不能test<- (test - mean(train))/sd(train)因为测试和训练是数据帧。有什么建议吗？