## -----------------------------------------------------------------------------
dir <- system.file("extdata", package="macrophage")
coldata <- read.csv(file.path(dir,"coldata.csv"))
coldata <- coldata[,c(1,2,3,5)]
coldata

## -----------------------------------------------------------------------------
sessionInfo()