非规范化调整到特定条件答案

【问题标题】：denormalize adjusted to specific condition非规范化调整到特定条件
【发布时间】：2020-12-26 14:57:48
【问题描述】：

有人可以帮我解决这个问题，即我想应用一个功能：

denormalize <- function(x,y) { 
return((x*(max(y) - min(y))) + min(y)) 
}

对于以下数据集，每个系数为“x”：

数据为“y”：

以下返回预期值，尽管它不一定简单：

modelDenorm <- data.frame(cbind(Price = denormalize(modCoef$Price, data$Price),
                                Interest = denormalize(modCoef$Interest, data$Interest),
                                Inflation = denormalize(modCoef$Inflation, data$Inflation),
                                CCI = denormalize(modCoef$CCI, data$CCI)))

此外，还有其他适用的方法吗？谢谢大家

【问题讨论】：

标签： r denormalization

【解决方案1】：

使用mapply 将您的函数应用于两个数据集。只需确保仅以正确的顺序传递相关列即可。

cols <- colnames(modCoef)
modelDenorm <- mapply(denormalize, modCoef[cols], data[cols])

【讨论】：