## ----setup,echo=FALSE,results="hide"---------------------------------------
suppressPackageStartupMessages({
suppressMessages({
library(rhdf5client)
library(DelayedArray)
})
})

## ----lkdela3---------------------------------------------------------------
da <- HSDSArray('http://hsdshdflab.hdfgroup.org', 'hsds', 
      '/shared/bioconductor/tenx_full.h5', '/newassay001')
da

## ----lkdel3----------------------------------------------------------------
apply(da[,1:4],2,sum)