R/Probmat.func.r

In lylyf1987/GNGpkg:

#' Title
#'
#' @param DesignTable data.frame of go and no go decision values in order. must have columns called MaxNoGo, MinGo, n
#' @param TargetRate the true rate
#'
#' @return see Intr_func, this is just a convenient wrapper for that function.
#' @export
#'
#' @examples
probmat.func <- function(DesignTable,TargetRate){
  R <- cbind(
    pmax(DesignTable$MaxNoGo +1,0),
    pmin(DesignTable$MinGo -1,DesignTable$n)
  )
  M <- c(DesignTable$n[1],diff(DesignTable$n))
  
  Intr_func(M,R,TargetRate)
}