Bai 1: Mean of Positive Values

x <- rnorm(10) #Tao 10 so ngau nhien tu N(0, 1)
x[x < 0] <- NA #Loai bo so am bang NA
mean(x, na.rm = TRUE) # Tinh tbc, bo qua NA
## [1] 0.6379385

Bai 2: Root Mean Square Error Nếu bạn có các giá trị thực

\[ t = (t_1, \ldots, t_n) \]

và các giá trị dự đoán

\[ y = (y_1, \ldots, y_n), \]

thì sai số căn trung bình bình phương được định nghĩa là:

\[ RMSE(t, y) = \sqrt{\frac{1}{n} \sum_{i=1}^{n} (t_i - y_i)^2} \]

set.seed(123)

df <- data.frame(
  t = sample(1:10, 10, replace = TRUE),
  y = sample(1:10, 10, replace = TRUE)
)

df |>
  transform(err2 = (t - y)^2) |>
  (\(x) mean(x$err2))() |>
  sqrt()
## [1] 3.209361