inst/tests/test-quant.lambda4.R

In JackStat/Lambda4: Collection of Internal Consistency Reliability Coefficients.

context("Quantile Lambda4")
test_that('Quantile Lambda4 and population covariance matrices',{
    
  par.1f<-as.numeric(round(quant.lambda4(par1f)[[1]][[1]],6))
  expect_that(par.1f, equals(.888889))
  
  tau.1f<-as.numeric(round(quant.lambda4(tau1f)[[1]][[1]],6))
  expect_that(tau.1f, equals(.833575))
  
  
  par.3f<-as.numeric(round(quant.lambda4(par3f)[[1]][[1]],6))
  expect_that(par.3f, equals(.864865))
  
  tau.3f<-as.numeric(round(quant.lambda4(tau3f)[[1]][[1]],6))
  expect_that(tau.3f, equals(.800278))
  
  
  par.5f<-as.numeric(round(quant.lambda4(par5f)[[1]][[1]],6))
  expect_that(par.5f, equals(.897959))
  
  tau.5f<-as.numeric(round(quant.lambda4(tau5f)[[1]][[1]],6))
  expect_that(tau.5f, equals(.846380))
  
})