revdep/checks.noindex/waywiser/old/waywiser.Rcheck/tests/testthat/_snaps/srr-ww_agreement_coefficient.md

srr: ww_agreement_coefficient errors if truth and estimate are different lengths

Code
  ww_agreement_coefficient_vec(1:5, 1:4)
Condition
  Error in `yardstick_vec()`:
  ! Length of `truth` (5) and `estimate` (4) must match.
Code
  ww_agreement_coefficient_vec(1:4, 1:5)
Condition
  Error in `yardstick_vec()`:
  ! Length of `truth` (4) and `estimate` (5) must match.

srr: ww_agreement_coefficient errors if truth and estimate aren't numeric

Code
  ww_agreement_coefficient(char_df, x, y)
Condition
  Error in `ww_agreement_coefficient()`:
  ! `estimate` must be numeric.
Code
  ww_agreement_coefficient(char_df, y, x)
Condition
  Error in `ww_agreement_coefficient()`:
  ! `truth` must be numeric.
Code
  ww_agreement_coefficient_vec(as.character(1:5), 1:4)
Condition
  Error in `yardstick_vec()`:
  ! `truth` must be numeric.
Code
  ww_agreement_coefficient_vec(1:5, as.character(1:4))
Condition
  Error in `yardstick_vec()`:
  ! `estimate` must be numeric.

srr: ww_agreement_coefficient errors if truth and estimate are list columns

Code
  ww_agreement_coefficient(list_df, x, y)
Condition
  Error in `ww_agreement_coefficient()`:
  ! `estimate` must be numeric.
Code
  ww_agreement_coefficient(list_df, y, x)
Condition
  Error in `ww_agreement_coefficient()`:
  ! `truth` must be numeric.

srr: ww_agreement_coefficient removes NaN and NA when na_rm = TRUE

Code
  round(ww_agreement_coefficient(missing_df, x, y)$.estimate, 15)
Output
  [1] 1
Code
  round(ww_agreement_coefficient(missing_df, y, x)$.estimate, 15)
Output
  [1] 1
Code
  round(ww_agreement_coefficient_vec(missing_df$y, missing_df$x), 15)
Output
  [1] 1
Code
  round(ww_agreement_coefficient_vec(missing_df$x, missing_df$y), 15)
Output
  [1] 1

srr: ww_agreement_coefficient errors on zero-length data

Code
  ww_agreement_coefficient_vec(numeric(), numeric())
Condition
  Error in `yardstick_vec()`:
  ! 0 non-missing values were passed to `truth`.
Code
  ww_agreement_coefficient(empty_df, x, y)
Condition
  Error in `ww_agreement_coefficient()`:
  ! 0 non-missing values were passed to `truth`.
Code
  ww_agreement_coefficient(empty_df, y, x)
Condition
  Error in `ww_agreement_coefficient()`:
  ! 0 non-missing values were passed to `truth`.

srr: ww_agreement_coefficient errors on all-NA data

Code
  ww_agreement_coefficient_vec(rep(NA_real_, 4), 4:1)
Condition
  Error in `yardstick_vec()`:
  ! 0 non-missing values were passed to `truth`.
Code
  ww_agreement_coefficient_vec(1:4, rep(NA_real_, 4))
Condition
  Error in `yardstick_vec()`:
  ! 0 non-missing values were passed to `truth`.
Code
  ww_agreement_coefficient(all_na, x, y)
Condition
  Error in `ww_agreement_coefficient()`:
  ! 0 non-missing values were passed to `truth`.
Code
  ww_agreement_coefficient(all_na, y, x)
Condition
  Error in `ww_agreement_coefficient()`:
  ! 0 non-missing values were passed to `truth`.
Code
  ww_agreement_coefficient_vec(1:4, 1:4)
Output
  [1] 1

srr: ww_agreement_coefficient works with all identical data

Code
  ww_agreement_coefficient(all_identical, x, y)
Output
  # A tibble: 1 x 3
    .metric               .estimator .estimate
    <chr>                 <chr>          <dbl>
  1 agreement_coefficient standard           1
Code
  ww_agreement_coefficient_vec(1:4, 1:4)
Output
  [1] 1
Code
  ww_agreement_coefficient(all_identical, x, y)
Output
  # A tibble: 1 x 3
    .metric               .estimator .estimate
    <chr>                 <chr>          <dbl>
  1 agreement_coefficient standard           1


AFIT-R/vip documentation built on Aug. 22, 2023, 8:59 a.m.