#suppress the warnings and other messages from showing in the knitted file. knitr::opts_chunk$set(fig.width=7, fig.height=5,fig.path='figures/',echo=TRUE,warning=FALSE,message=FALSE)
library(altEASI)
Time1 <- c(5,6,6,7,8) Time2 <- c(7,7,8,8,9) Time3 <- c(8,8,9,9,9) WithinData <- data.frame(Time1,Time2,Time3) WithinData
ciMeans(Time1,Time2,Time3) ciMeans(Time1,Time2,Time3,conf.level=.99)
cipMeans(Time1,Time2,Time3) cipMeans(Time1,Time2,Time3,conf.level=.99,mu=6)
nhstMeans(Time1,Time2,Time3) nhstMeans(Time1,Time2,Time3,mu=6)
ciDifference(Time1,Time2) ciDifference(Time1,Time2,conf.level=.99) ciDifference(Time3,Time1)
cipDifference(Time1,Time2) cipDifference(Time1,Time2,conf.level=.99)
nhstDifference(Time1,Time2) nhstDifference(Time1,Time2,mu=-2)
ciPairwise(Time1,Time2,Time3) ciPairwise(Time1,Time2,Time3,conf.level=.99)
cipPairwise(Time1,Time2,Time3) cipPairwise(Time1,Time2,Time3,mu=-2,conf.level=.99)
nhstPairwise(Time1,Time2,Time3) nhstPairwise(Time1,Time2,Time3,mu=-2)
ciContrasts(Time1,Time2,Time3,contrasts=contr.sum) ciContrasts(Time1,Time2,Time3,contrasts=contr.sum,conf.level=.99) ciContrasts(Time1,Time2,Time3,contrasts=contr.treatment) ciContrasts(Time1,Time2,Time3,contrasts=contr.poly) ciContrasts(Time1,Time2,Time3,contrasts=contr.helmert) ciContrasts(Time1,Time2,Time3,contrasts=contr.SAS)
cipContrasts(Time1,Time2,Time3,contrasts=contr.sum) cipContrasts(Time1,Time2,Time3,contrasts=contr.sum,conf.level=.99) cipContrasts(Time1,Time2,Time3,contrasts=contr.treatment) cipContrasts(Time1,Time2,Time3,contrasts=contr.poly) cipContrasts(Time1,Time2,Time3,contrasts=contr.helmert) cipContrasts(Time1,Time2,Time3,contrasts=contr.SAS)
nhstContrasts(Time1,Time2,Time3,contrasts=contr.sum) nhstContrasts(Time1,Time2,Time3,contrasts=contr.treatment) nhstContrasts(Time1,Time2,Time3,contrasts=contr.poly) nhstContrasts(Time1,Time2,Time3,contrasts=contr.helmert) nhstContrasts(Time1,Time2,Time3,contrasts=contr.SAS)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.