tests/testthat/test-cal_rmse.R

In DSCI-310/DSCI-310-Group-6-Package: Helper Functions for DSCI-310-Group-6

predicted = c(12, 5, 19, 3)
actual = c(11, 4, 15, 6)
long_vector = c(12, 5, 19, 3, 11)
faulty_vector = c(12, 5, 19, 3, "eleventeen")

result = cal_rmse(predicted, actual)

test_that("RMSE properly calculated", {
  expect_equal(2.6, result)})

test_that("Error detected when non-numeric input given",{
  expect_error(cal_rmse(faulty_vector, actual))
  expect_error(cal_rmse(predicted, faulty_vector))})


test_that("Error detected when input vectors have different lengths", {
  expect_error(cal_rmse(predicted, long_vector))
  expect_error(cal_rmse(predicted, long_vector))})