data(mimicry, package = "factorH")
# One factor
ph1 <- srh.posthoc(liking ~ condition, data = mimicry)
ph1$`P.adj` # gotowa macierz p po korekcji
# Two factors combined (all A:B cells vs all A:B cells)
ph2 <- srh.posthoc(liking ~ gender + condition, data = mimicry)
ph2$`P.adj`
# Upper triangle, numeric frames
ph3 <- srh.posthoc(liking ~ condition, data = mimicry,
triangular = "upper", numeric = TRUE)
ph3$Z
Run the code above in your browser using DataLab