(M <- code_control(5))
mean_contrasts(M)
(M <- stats::contr.treatment(5))
mean_contrasts(M) ## same contrasts; different averaging vector.
mean_contrasts(stats::contr.helmert(6)) ## Interpretation obscure
mean_contrasts(code_helmert(6)) ## each mean with the average preceding
mean_contrasts(code_helmert_forward(6)) ## each mean with the averave succeedingRun the code above in your browser using DataLab