R/kRepsOverA.R

In factDesign: Factorial designed microarray experiment analysis

Defines functions kRepsOverA

Documented in kRepsOverA

kRepsOverA <- function(k,A=100,INDEX)
{
  function(x){
    temp <- tapply(x,INDEX,FUN=mean)
    ans <- sum(temp > A) >= k
    return(ans)
  }
}

Try the factDesign package in your browser