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

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

## ----lkdel3-------------------------------------------------------------------
if (check_hsds()) {
 apply(da[,1:4],2,sum)
}