tests/testthat/01_name_random_effects.r

In CLME: Constrained Inference for Linear Mixed Effects Models

context("Creating the constraints")

# 
# test_that("fixed effects", {
#   KK   <- 5
#   nn   <- 5
#   gg   <- ordered( rep(LETTERS[1:KK],rep(nn,KK)), levels=c(LETTERS[1:KK]) )
#   uu   <- rep( 1:nn , nn )
#   mvec <- rep( c(1,2,3,4,5)/3 , rep(nn,KK) )
#   yy <- rnorm( nn*KK )*1 + mvec
# 
#   clme_out <- clme( yy ~ gg , constraints=list(order="simple", node=0, decreasing=FALSE)  )
# 
#   expect_is(    const01, "list" )
#   expect_equal( length(const01), 6 )
#   expect_equal( dim(const01$Anull), c(choose(KK,2)*2,2)  )
# 
# })
#