inst/count_totals.R

library(Biobase)
efiles <- dir(pattern="^.*_esets\\.rda$")

res <- sapply(rev(efiles), function(efile){
    print(efile)
    load(efile)
    output <- c(length(esets), sum(sapply(esets, ncol)))
    names(output) <- c("n.datasets", "n.samples")
    output
})

write.csv(t(res), file="database_totalpatients.csv")

Try the doppelgangR package in your browser

Any scripts or data that you put into this service are public.

doppelgangR documentation built on May 2, 2018, 4:47 a.m.