R/cleanFCSbyCIPHE.R

In Selkie-13/Jarvis:

cleanFCSbyCIPHE <- function(flow.frame,methode="flowAI",args=NULL,markers=NULL){
  if(!is.null(markers)){
    fcs <- flow.frame[,markers]
  } else {
    fcs <- flow.frame
  }
  if(methode=="flowAI" && is.null(args)){
   fcs <-  flow_auto_qc(flow.frame, output=2,html_report = FALSE,
                 mini_report = FALSE,folder_results = FALSE)
  }

  return(fcs)
}

computeCleanFCSbyCIPHE <- function(flow.frame, params){


}