EX2_CHAPTER1

Root Mean Square Error \[ \mathrm{RMSE}(t, y) = \sqrt{\frac{1}{n} \sum_{i=1}^{n} (t_i - y_i)^2} \] Hãy viết một pipeline để tính đại lượng này từ một data frame chứa các giá trị t và y.

n <- 10

df <- data.frame(
  t = rnorm(n),
  y = rnorm(n)
)

print(df)

##              t           y
## 1   0.52121932 -0.01762511
## 2   0.00775407  0.86273248
## 3   0.29202013  1.45714407
## 4   0.78514202  0.30931933
## 5  -0.87151690  0.63829177
## 6   0.48514272 -0.24496070
## 7  -0.27850367  0.43246269
## 8   0.48845844  0.87000700
## 9   1.88790800 -0.79919351
## 10 -0.74686324  0.01050701

df |>
  with((t - y)^2) |>
  mean() |>
  sqrt()

## [1] 1.177413