R/fileCC.R

In dosorio/ccCINTROP: Calculate and plot the CC50

#' @export fileCC
fileCC <- function(file, calculateCC = 50, modelUmbral= 0.85, raw = FALSE){
  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)
  mExperiments <- suppressMessages(generateModels(data, modelUmbral= modelUmbral))
  CC <- c(calculateCC(models = mExperiments, CC = calculateCC, raw = raw))
  return(CC)
}