tests/testthat/test-ssm_bootstrap.R

In jmgirard/circumplex: Analysis and Visualization of Circular Data

test_that("Quantile for circular radians works", {
  a <- as_degree(0:180)
  b <- as_radian(a)
  qb <- quantile(b)
  expect_s3_class(qb, "circumplex_radian")
  expect_equal(qb, as_radian(as_degree(c(0, 45, 90, 135, 180))), ignore_attr = TRUE)

  # a <- as_degree(180:360)
  # b <- as_radian(a)
  # qb <- quantile(b)
  # expect_s3_class(qb, "circumplex_radian")
  # if (getRversion() > "3.6.1" || (getRversion() == "3.6.1" && R.Version()$status == "Patched")) {
  #   expect_equivalent(qb, as_radian(as_degree(c(180, 225, 270, 315, 360))))
  # } else {
  #   expect_equivalent(qb, as_radian(as_degree(c(180, 225, 270, 315, 0))))
  # }
  # 
  # a <- as_degree(c(270:360, 1:90))
  # b <- as_radian(a)
  # qb <- quantile(b)
  # expect_s3_class(qb, "circumplex_radian")
  # if (getRversion() > "3.6.1" || (getRversion() == "3.6.1" && R.Version()$status == "Patched")) {
  #   expect_equivalent(qb, as_radian(as_degree(c(270, 315, 360, 45, 90))))
  # } else {
  #   expect_equivalent(qb, as_radian(as_degree(c(270, 315, 0, 45, 90))))
  # }
  
  a <- as_degree(c(NA_real_, NA_real_, NA_real_))
  b <- as_radian(a)
  qb <- quantile(b)
  expect_true(is.na(qb))

  a <- as_degree(c(0, 0, 30, 90, NA_real_))
  b <- as_radian(a)
  c <- as_degree(c(0, 0, 30, 90))
  d <- as_radian(c)
  expect_equal(quantile(b), quantile(d))
})