R Under development (unstable) (2024-02-11 r85891 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # library(ThermalSampleR)
> # library(testthat)
> # coreid = ThermalSampleR::coreid_data
> #
> # ############################################################################################
> # # EQUIV_TOST TESTS
> # ############################################################################################
> #
> # tte = equiv_tost(
> #   # Which dataframe does the data come from?
> #   data = coreid,
> #   # Provide the column name containing the taxon ID
> #   groups_col = col,
> #   # Provide the name of the taxon to be tested
> #   groups_which = "Catorhintha schaffneri_APM",
> #   # Provide the name of the column containing the response variable (e.g CTmin data)
> #   response = response,
> #   # Define the skewness parameters
> #   skews = c(1,10),
> #   # Define the equivalence of subsets to full population CT estimate (unit = degree Celcius)
> #   equiv_margin = 1,
> #   # Size of the population to sample (will test subsamples of size pop_n - x against pop_n for equivalence). Defaults to population size = 30
> #   pop_n = 5
> # )
> #
> # ########################################
> # # Test for the class of tte
> # ########################################
> # testthat::test_that("tte output is the ggplot class", {
> #
> #   testthat::expect_true(inherits(tte, "ggplot"))
> # })
> #
> #
> # testthat::test_that("No error is thrown in equiv_tost function", {
> #
> #   # Call the function and check for errors
> #   testthat::expect_no_error(equiv_tost(
> #     # Which dataframe does the data come from?
> #     data = coreid,
> #     # Provide the column name containing the taxon ID
> #     groups_col = col,
> #     # Provide the name of the taxon to be tested
> #     groups_which = "Catorhintha schaffneri_APM",
> #     # Provide the name of the column containing the response variable (e.g CTmin data)
> #     response = response,
> #     # Define the skewness parameters
> #     skews = c(1,10),
> #     # Define the equivalence of subsets to full population CT estimate (unit = degree Celcius)
> #     equiv_margin = 1,
> #     # Size of the population to sample (will test subsamples of size pop_n - x against pop_n for equivalence). Defaults to population size = 30
> #     pop_n = 5
> #   ))
> # })
> 
> proc.time()
   user  system elapsed 
   0.14    0.09    0.21