R/select.IDR.R

In idr: Irreproducible Discovery Rate

Defines functions select.IDR

Documented in select.IDR

select.IDR <-
  function(x, IDR.x, IDR.level){

    is.selected <- IDR.x < IDR.level
    x.selected <- x[is.selected,]
    n.selected <- nrow(x.selected)
    
    return(list(x=x.selected, n=n.selected, IDR.level=IDR.level))
  }

Try the idr package in your browser