R/changeFDR.R

In timpeters82/DMRcate-devel: Methylation array and sequencing spatial analysis methods

changeFDR <- function (annot, FDR) 
{
  if(!is(annot, "CpGannotated")){
    stop("Error: annot is not a CpGannotated object. Please create one with cpg.annotate() or sequencing.annotate()")
  }
  if(FDR <=0 | FDR >=1){
    stop("Error: please enter an appropriate FDR value > 0 or < 1.")
  }
  annot@ranges$is.sig <- annot@ranges$ind.fdr < FDR
  cat(paste0("Threshold is now set at FDR=", FDR, ", resulting in ", 
                 sum(annot@ranges$is.sig), " significantly differential CpGs."))
  annot
  
}