Closed adw96 closed 5 years ago
plot(divnet_phylum_name, color = "red") + ylim(0,2) + ylab("Shannon estimate with DivNet")
lee_phylum %>% otu_table %>% apply(2, shannon) %>% data.frame("shannon" = .) %>% rownames_to_column %>% ggplot(aes(x = rowname, y = shannon)) + geom_point() + theme_bw() + ylim(0,2) + ylab("Naive Shannon estimate") + xlab("samples")
How did you check this before closing it, @bryandmartin?
Sorry, I closed the wrong issue here.
Thanks -- please just be careful in future. I just confirmed that 6e15eb3 did indeed fix this issue.
plot(divnet_phylum_name, color = "red") + ylim(0,2) + ylab("Shannon estimate with DivNet")
lee_phylum %>% otu_table %>% apply(2, shannon) %>% data.frame("shannon" = .) %>% rownames_to_column %>% ggplot(aes(x = rowname, y = shannon)) + geom_point() + theme_bw() + ylim(0,2) + ylab("Naive Shannon estimate") + xlab("samples")