## ----setup,echo=FALSE,results="hide"------------------------------------------ suppressPackageStartupMessages({ suppressMessages({ library(rhdf5client) library(DelayedArray) }) }) ## ----lkdela3------------------------------------------------------------------ if (check_hsds()) { da <- HSDSArray(URL_hsds(), 'hsds', '/shared/bioconductor/patelGBMSC.h5', '/assay001') da } ## ----lkdel3------------------------------------------------------------------- if (check_hsds()) { apply(da[,1:4],2,sum) }