# NOT RUN {
# Loading a pan-matrix in this package
data(xmpl.panmat)
# Rarefaction
rar.tbl <- rarefaction(xmpl.panmat, n.perm = 1000)
# }
# NOT RUN {
# Plotting
library(ggplot2)
library(tidyr)
rar.tbl %>%
gather(key = "Permutation", value = "Clusters", -Genome) %>%
ggplot(aes(x = Genome, y = Clusters, group = Permutation)) +
geom_line()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab