## ----------------------------------------------------------------------------- library(ExperimentHub) eh = ExperimentHub() myData <- query(eh, "PhyloProfileData") myData ## ---- warning = FALSE, message = FALSE---------------------------------------- ampkTorPhyloProfile <- myData[["EH2544"]] head(ampkTorPhyloProfile) ## ---- warning = FALSE, message = FALSE---------------------------------------- ampkTorFasta <- myData[["EH2545"]] head(ampkTorFasta) ## ---- warning = FALSE, message = FALSE---------------------------------------- ampkTorDomain <- myData[["EH2546"]] head(ampkTorDomain) ## ---- warning = FALSE, message = FALSE---------------------------------------- arthropodaPhyloProfile <- myData[["EH2547"]] head(arthropodaPhyloProfile) ## ---- warning = FALSE, message = FALSE---------------------------------------- arthropodaFasta <- myData[["EH2548"]] head(arthropodaFasta) ## ---- warning = FALSE, message = FALSE---------------------------------------- arthropodaDomain <- myData[["EH2549"]] head(arthropodaDomain)