tests/testthat/test-getSx.R

In zoevanhavre/ZDev: Development version of Zmix with major updates.

context("getSx")

test_that("test getSx", {
  y<-rnorm(5,1)
  z<- c(1,2,1,1,2)

  expect_equal( length(getSx(y,z,k=3)), 3)
  expect_equal( class(getSx(y,z,k=3)), "numeric")
  expect_error( getSx(y, z,k=1))

})