如何计算MSE？

Question

我必须在不打包的情况下计算值"Td“的MSE。我使用了一个函数，但是对于每一行，我总是有相同的均方误差(参见MSE_mod1) (行间的均方误差不应该是相同的，对吧？)你知道为什么吗？

你能帮我吗？:)

下面是我的代码：

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

Answer 1

为什么不直接使用：

mean((tdval-td)^2)