Nothing
data(woodmouse)
fit <- pml_bb(woodmouse, "HKY+I", rearrangement = "NNI",
control=pml.control(trace=0))
expect_true(AICc(fit) > AIC(fit))
expect_true(BIC(fit) > AIC(fit))
c_mat <- vcov(fit)
expect_true( isSymmetric(c_mat, tol=1e-12) )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.