R/getX.R

In jaromilfrossard/lme4permuco: Permutation and randomization tests for mixed models

Defines functions getX getX.lmerModgANOVA getX.list

getX <- function(model){UseMethod("getX")}

getX.lmerModgANOVA <- function(model){getME(model,"X")}

getX.list <- function(model){model$X}