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