如何计算 MSE？答案

【问题标题】：how to compute the MSE?如何计算 MSE？
【发布时间】：2020-11-04 14:07:48
【问题描述】：

我必须在不打包的情况下计算值“Td”的 MSE。我使用了一个函数，但我对每一行都有相同的 MSE（参见 MSE_mod1）（它不应该是行之间的相同 MSE，对吧？）。你知道为什么吗？

你能帮帮我吗？ :)

这是我的代码：

fonction_MSE <- function(tdval, td) {
  
  n<- 8741
  diff<- tdval-td
  MSEmode1<- (1/n)*sum((diff)^2)
  print(round(MSEmode1, digits = 9))    
}

MSE_mod1 <- fonction_MSE(meteo_charleroi[, "Td"], meteo_charleroi[, "Td_mod1"])

MSE_mod2 <- fonction_MSE(meteo_charleroi[, "Td"], meteo_charleroi[, "Td_mod2"])

这是我的数据框的头部：

head of data frame

【问题讨论】：

data.frame 的头部丢失
也许更好的问题是：您的模型的结果是否不同？也许计算mod_difference <- meteo_charleroi[, "Td_mod1"] - meteo_charleroi[, "Td_mod2"] 并查看summary(mod_difference)。也许您在将模型结果分配给数据框或类似的东西时有错字。
对不起，我刚刚编辑了

标签： r function mse

【解决方案1】：

为什么不直接使用：

mean((tdval-td)^2)

【讨论】：