R/splitExperiments.R

Defines functions splitExperiments

#' @export splitExperiments
splitExperiments <- function(file){
  set.seed(1)
  data <- read.table(file,header = TRUE)
  data <- data[,paste0("X",sort(as.numeric(gsub("X","",colnames(data)))))]
  data <- cData(data)
  data <- sExperiments(data)
  return(data)
}
dosorio/ccCINTROP documentation built on May 5, 2019, 11:09 p.m.