# 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
)
Tg(
df,
plot = TRUE,
method = 'ellipse',
type = 'lower',
col = c(
'#AEB6E5',
'#B1A0DB',
'#B788CD',
'#BC6EB9',
'#BC569E',
'#B6407D',
'#A93154'
),
tl.cex = 0.8,
tl.col = 'black',
insig =
'label_sig',
tl.srt = 0.1,
pch.cex = 2.5,
tl.pos = 'ld',
win.asp = 1,
number.cex = 0.5,
na.label = 'NA'
)
# }
Run the code above in your browser using DataLab