## ----------------------------------------------------------------------------- dir <- system.file("extdata", package="oct4") coldata <- read.csv(file.path(dir,"coldata.csv")) coldata ## ----------------------------------------------------------------------------- sessionInfo()