\begin{table}[h] \centering \caption{Pairwise Comparisons of Means} \label{tab:pairwise} \begin{tabular}{lccccc} \hline Contrast & Estimate & SE & $df$ & $t$-ratio & $p$-value \\ \hline A - B & 0.0747 & 0.190 & 3317 & 0.392 & 0.9795 \\ A - C & -0.0476 & 0.190 & 3317 & -0.250 & 0.9945 \\ A - D & 0.0215 & 0.191 & 3317 & 0.113 & 0.9995 \\ B - C & -0.1222 & 0.190 & 3317 & -0.643 & 0.9182 \\ B - D & -0.0532 & 0.191 & 3317 & -0.279 & 0.9924 \\ C - D & 0.0691 & 0.190 & 3317 & 0.363 & 0.9836 \\ \hline \multicolumn{6}{c}{\textit{Note:} P value adjustment: Tukey method for comparing a family of 4 estimates.} \end{tabular} \end{table} please improve this code visually clear -in APA style-
contrasts(df$condition) <- contr.sum model <- lm(data ~ condition, data = df) anova(model, type = "III")
