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) )
#
# })
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.