R/kRepsOverA.R

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

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

factDesign documentation built on Nov. 8, 2020, 8:32 p.m.