## ----get-data----------------------------------------------------------------- library(AnnotationHub) ahub = AnnotationHub() mymeta <- query(ahub , "gwascatData") mymeta tag = names(mymeta)[1] tag head(ahub[[tag]][,1:6])