R/isInteractionFree.R

In AlexSchauerte/unbANOVA: Compare ANOVA Types & Learn About their Differences in Unbalanced Designs.

#' Check for interaction-free data
#'
#' This function tests if data is interaction-free (x-effects, K-effects, but no x*K-effects).
#' @param freq matrix of frequencies
#' @keywords anova
#' @export
isInteractionFree <- function(means, freq, k.levels){
  isTRUE(all.equal(means, unbANOVA::calcInteractionfreeDataset(means, freq, k.levels), check.attributes = FALSE))
}