data(charadriiformes)
## Creating a dispRity object from the charadriiformes model
covar <- MCMCglmm.subsets(data = charadriiformes$data,
posteriors = charadriiformes$posteriors,
group = MCMCglmm.levels(
charadriiformes$posteriors)[1:4],
rename.groups = c("gulls", "plovers",
"sandpipers", "phylogeny"))
## Default plot
covar.plot(covar)
## Same plot with more options
covar.plot(covar, n = 50, ellipses = mean, major.axes = TRUE,
col = c("orange", "blue", "darkgreen", "grey", "grey"),
legend = TRUE, points = TRUE, points.cex = 0.2,
main = "Charadriiformes shapespace")
Run the code above in your browser using DataLab