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