contrasts_summary {appRiori}

Summary for hypr contrasts

Description

Extract the estimates and the inferential tests for a contrasts defined by hypr

Usage

contrasts_summary(model, ...)

## Default S3 method:
contrasts_summary(model, ...)

## S3 method for class 'merMod'
contrasts_summary(model, ...)

## S3 method for class 'glmerMod'
contrasts_summary(model, ...)

Arguments

model

a model of class lm, glm or lmer.

...

additional options (not used at the moment)

Value

A results table of class hypr_contrasts_results.

Examples

 library(MASS)
 df<-MASS::anorexia
 df$Treat = factor(df$Treat)
 library ( hypr )
 h <- hypr ( ~ 1/2 * CBT + 1/2 * FT - Cont , ~ CBT - FT , levels = c( "CBT" , "Cont" , "FT" ))
 contrasts(df$Treat,how.many=2)<-cmat(h)
 model = lm ( Prewt ~ Treat , data = df )
 contrasts_summary ( model )