R/reducDimFCSbyCIPHE.R

In Selkie-13/Jarvis:

reducDimFCSbyCIPHE <- function(flow.frame, methode="PCA", args, markers){
  if(is.null(markers)){
    data <- flow.frame@exprs
  } else {
    data <- flow.frame@exprs[,markers]
  }
  if(methode=="PCA"){
    dim <- prcomp(data)$x[,1:2]
  }
  return(dim)
}