R/OverallPw.bin.2arm.R

Defines functions OverallPw.bin.2arm

OverallPw.bin.2arm <-
function(bug.res, g, cut){
  TF <- (bug.res[,c(-1,-2)] > cut)
  n.grt <- apply(TF, 1, sum)
  pw.g <- mean((n.grt >= g))
  res <- list(pw.g=pw.g, g=g)
  res
}

Try the hbdct package in your browser

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

hbdct documentation built on July 4, 2017, 9:09 a.m.