if(require(brassicaData)){
files <- list.files(system.file("extdata", package = "brassicaData"),
full.names = TRUE, pattern = "idat")
samples <- read_sample_sheets(files = list.files(system.file("extdata",
package = "brassicaData"), full.names = TRUE, pattern = "csv"))
column_names <- sapply(strsplit(files,split="/"), FUN=function(x) x[length(x)])
data("dictionary", package = "brassicaData", envir = environment())
data("chrPos", package = "brassicaData", envir = environment())
raw_data <- read_intensities(files = files, dict = dictionary,
cnames = column_names, pos = chrPos)
}
Run the code above in your browser using DataLab