tests/testthat/test-sample_hypersphere.R

In QuadratiK: Collection of Methods Constructed using Kernel-Based Quadratic Distances

library(testthat)
test_that("Random Generation from PKBD works", {
   
   #------------------------------------------------------
   ## Generating data point on the Sphere
   ## and computing the densities
   size <- 100
   d <- 3
   x_sp <- sample_hypersphere(d, size)
   
   expect_equal(dim(x_sp),c(size,d))
   expect_true(any(rowSums(x_sp^2) == 1))
})