View source: R/add.rare.plot.R
add.rare.plot | R Documentation |
Add the rarefaction plot to a called plot.randtest
plot
add.rare.plot(x, ...)
x |
The |
... |
Any optional parameters to be passed to |
Thomas Guillerme
rand.test
## Loading the geomorph dataset
require(geomorph)
data(plethodon)
## Performing the Procrustes superimposition
proc_super <- gpagen(plethodon$land, print.progress = FALSE)
## Getting the two most different specimen based on their landmark change radii
var_range <- variation.range(proc_super)
## Not run:
set.seed(1)
## Selecting 6 random landmarks
random_part <- sample(1:nrow(var_range), 6)
## Rarefying the area difference to 5 elements without testing the parameter
rarefy_test <- rand.test(var_range[, "radius"], random_part, rarefaction = 5,
test = area.diff)
## Plotting the results (central tendency)
plot(rarefy_test)
## Add the rarefied observations to the plot
add.rare.plot(rarefy_test)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.