update on figures number, and labels of solutions in the plot, to be...

update on figures number, and labels of solutions in the plot, to be consistent with final manusctipt

statistical-analysis.Rmd

@@ -228,7 +228,7 @@ col=rep("black", nsamples(ps.filt))
 col[sample_data(ps.filt)$Patient %in% c("SS01", "SS02", "SS03", "SS07", "SS11", "SS13", "SS12", "SS14")] = "gray70"
 col[sample_names(ps.filt) %in% c("SS01Sc1-3", "SS02Sc1-3", "SS04Dc3-3")] = "red"
 
-pdf(file = "figures-article/figureS5.pdf", width = 9, height = 9, pointsize = 10)
+pdf(file = "figures-article/figureS6.pdf", width = 9, height = 9, pointsize = 10)
 plot(ape::as.phylo(hclust(phyloseq::distance(rarefy_even_depth(ps.filt, rngseed = T), method = "bray"))), type="radial", cex = 0.5, tip.color = col)
 dev.off()