object    = bdiv_table(hmp5, 'unifrac', weighted = FALSE)$.distance,
object    = bdiv_table(hmp5, 'unifrac', weighted = TRUE)$.distance,
object    = bdiv_table(hmp5, within = 'Sex', weighted = c(T, F))$.distance,
object   = bdiv_table(hmp5, within = 'Sex', weighted = c(T, F))$.distance,
expected = bdiv_table(hmp5, md = '==Sex', weighted = c(T, F))$.distance )
expect_error(bdiv_table(hmp5, md = '==Sex', between = 'Sex'))
expect_error(bdiv_table(hmp5, within = 'Sex', between = 'Sex'))
object    = bdiv_table(hmp5, 'jac', between = 'Body Site')$.distance,
object   = bdiv_table(hmp5, 'jac', between = 'Body Site')$.distance,
expected = bdiv_table(hmp5, 'jac', md = '!=Body Site')$.distance )
expect_error(bdiv_table(hmp5, md = '==Body Site', between = 'Body Site'))
expect_error(bdiv_table(hmp5, within = 'Body Site', between = 'Body Site'))
expect_error(bdiv_table(hmp5, md = c('==Body Site', '!=Body Site')))
object   = bdiv_table(hmp5, trans = 'rank', tree = hmp5$tree)$.distance,
object   = bdiv_table(hmp5, c('man', 'bray'), trans = 'rank')$.distance,
object   = round(bdiv_table(hmp5, 'euc', trans = 'sqrt')$.distance),