R/testdist.R

In kisungyou/PNAS: 'PNAS' is for Network Analysis and Statistical methods

#' test for RcppDist
#' 
#' @keywords internal
#' @noRd
testdist <- function(n, alpha=1, beta=5){
  output = rep(0,n)
  for (i in 1:n){
    output[i] = mycpp_invgamma(alpha,beta)
  }
  return(output)
}