R语言 多组数据的均方根误差

在R语言中，可以使用以下代码计算多组数据的均方根误差（RMSE）：

假设有两组数据，分别为observed和predicted，每组数据有n个元素，可以使用以下代码计算RMSE：

# 生成示例数据
observed <- c(1, 2, 3, 4, 5)
predicted <- c(1.2, 2.3, 2.8, 4.2, 5.1)

# 计算RMSE
rmse <- sqrt(mean((observed - predicted)^2))
rmse

输出结果为：

[1] 0.3974927

如果有多组数据，可以将上述代码用一个循环来实现，例如：

# 生成示例数据
observed_list <- list(c(1, 2, 3, 4, 5), c(2, 4, 6, 8, 10))
predicted_list <- list(c(1.2, 2.3, 2.8, 4.2, 5.1), c(2.1, 3.9, 5.8, 7.9, 10.2))

# 循环计算RMSE
rmse_list <- NULL
for (i in 1:length(observed_list)) {
  rmse <- sqrt(mean((observed_list[[i]] - predicted_list[[i]])^2))
  rmse_list <- c(rmse_list, rmse)
}
rmse_list

输出结果为：

[1] 0.3974927 0.3898729

这里使用了列表（list）来存储多组数据，循环计算每组数据的RMSE，并将结果存储在另一个列表中。