R/adjustment.R

`adjustment` <-
function (rpval,type = c("BH", "BY","Bonferroni", "Holm", "Hochberg", "SidakSS", "SidakSD"))
  {
  
  if(length(rpval)==1){
    
    return(rpval)
  } else{
    
    res <- mt.rawp2adjp(rpval, type)
    adjp <- res$adjp[order(res$index), ]
    return(adjp)
  }
}

Try the IsoGeneGUI package in your browser

Any scripts or data that you put into this service are public.

IsoGeneGUI documentation built on May 2, 2019, 4:49 p.m.