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