是否有用于查找RMSEu和RMSEu的R函数？

# 安装和加载caret包
install.packages("caret")
library(caret)

# 示例数据
actual <- c(1, 2, 3, 4, 5)
predicted <- c(1.2, 2.1, 2.9, 4.2, 5.1)

# 计算RMSE
rmse <- RMSE(actual, predicted)
print(rmse)

# 安装和加载Metrics包
install.packages("Metrics")
library(Metrics)

# 示例数据
actual <- c(1, 2, 3, 4, 5)
predicted <- c(1.2, 2.1, 2.9, 4.2, 5.1)

# 计算RMSE
rmse <- rmse(actual, predicted)
print(rmse)

# 自定义RMSEu函数
rmseu <- function(actual, predicted) {
  n <- length(actual)
  mse <- sum((actual - predicted)^2) / (n - 1)
  sqrt(mse)
}

# 示例数据
actual <- c(1, 2, 3, 4, 5)
predicted <- c(1.2, 2.1, 2.9, 4.2, 5.1)

# 计算RMSEu
rmseu_value <- rmseu(actual, predicted)
print(rmseu_value)