## Not run:
# x <- ncbiProject("Yersinia[ORGN]")
# x
# summary(x)
#
# #Metagenomes
# metag <- ncbiProject("metagenome[Project Data Type]")
# metag2 <- ncbiProject("metagenomes[Orgn]")
# ## End(Not run)
Run the code above in your browser using DataLab