R/folderCC.R

In dosorio/ccCINTROP: Calculate and plot the CC50

#' @export folderCC
folderCC <- function(folder, calculateCC = 50, modelUmbral= 0.85){
  files <- list.files(folder,full.names = TRUE)
  CC <- lapply(files, function(file){
    fileCC(file = file, calculateCC = calculateCC, modelUmbral = modelUmbral)
  })
  CC <- as.data.frame.array(t(rbind.data.frame(CC)))
  rownames(CC) <- sub(pattern = "(.*)\\..*$", replacement = "\\1", basename(files))
  colnames(CC) <- c("CC","SD","SE","mADJ")
  return(CC)
}