## ----------------------------------------------------------------------------- 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)