# NOT RUN {
# Comparisons of femur head diameter in four populations
library(TestDimorph)
df <-
data.frame(
Pop = c("Turkish", "Bulgarian", "Greek", "Portuguese "),
m = c(150.00, 82.00, 36.00, 34.00),
M.mu = c(49.39, 48.33, 46.99, 45.20),
M.sdev = c(3.01, 2.53, 2.47, 2.00),
f = c(150.00, 58.00, 34.00, 24.00),
F.mu = c(42.91, 42.89, 42.44, 40.90),
F.sdev = c(2.90, 2.84, 2.26, 2.90)
)
univariate(df, pairwise = TRUE, padjust = "bonferroni")
# }
Run the code above in your browser using DataLab