library(TestDimorph)
data("Cremains_measurements")
# plot and test of significance
MI_index(Cremains_measurements[1, ], plot = TRUE)
#' #NI index
MI_index(Cremains_measurements[1, ], index_type = "NI")
if (FALSE) {
# confidence interval was bootstrapping
MI_index(Cremains_measurements[1, ], rand = FALSE, B = 1000)
}
Run the code above in your browser using DataLab