tests/testthat/test-fitted.R

In pmrm: Progression Models for Repeated Measures

test_that("fitted.pmrm_fit() proportional decline", {
  for (adjust in c(TRUE, FALSE)) {
    # Computed with independent R code.
    out <- fitted(fit_decline_proportional(), adjust = adjust)
    # Reported from the objective function itself.
    predictions <- predict(fit_decline_proportional(), adjust = adjust)
    expect_gt(cor(out, predictions$estimate), 0.999)
    expect_lt(max(abs(out - predictions$estimate)), 0.002)
  }
})

test_that("fitted.pmrm_fit() non-proportional slowing", {
  for (adjust in c(TRUE, FALSE)) {
    # Computed with independent R code.
    out <- fitted(fit_slowing_nonproportional(), adjust = adjust)
    # Reported from the objective function itself.
    predictions <- predict(fit_slowing_nonproportional(), adjust = adjust)
    expect_gt(cor(out, predictions$estimate), 0.999)
    expect_lt(max(abs(out - predictions$estimate)), 0.002)
  }
})