## ----initial, echo=FALSE, warning=FALSE, message=FALSE------------------------ library(BiocStyle) ## ----------------------------------------------------------------------------- (fl <- system.file("extdata", "metadata.csv", package='tartare')) metadata <- read.csv(fl, stringsAsFactors=FALSE) ## ----eval=TRUE, echo=FALSE---------------------------------------------------- library(knitr) kable(metadata[,c(1,5,15,16)]) ## ----echo=TRUE, message=FALSE, warning=FALSE, eval=TRUE----------------------- library(ExperimentHub) eh <- ExperimentHub(); query(eh, "tartare") #### code snippets to be continued # load(query(eh, c("NestLink", "F255744.RData"))[[1]]) # dim(F255744) # load(query(eh, c("NestLink", "WU160118.RData"))[[1]]) # dim(WU160118) ## ----sessionInfo, echo=FALSE-------------------------------------------------- sessionInfo()