R/bacisSubgroupPosterior.R

Defines functions bacisSubgroupPosterior

Documented in bacisSubgroupPosterior

bacisSubgroupPosterior<- function(numGroup = 5,
                                  tau1 = NA,
                                  tau2 = .001,
                                  phi1 = 0.1,
                                  phi2 = 0.3,
                                  tau4 = 0.1,
                                  alpha = 50,
                                  beta = 2,
                                  clusterCutoff = NA,
                                  MCNum = 50000,
                                  nDat = c(25, 25, 25, 25, 25),
                                  xDat = c(2, 3, 7, 6, 10),
                                  seed = NA
)

{
  if (is.na(seed))
  {
    set.seed( as.integer((as.double(Sys.time())*1000+Sys.getpid()) %% 2^31) )
  }
  else{
    set.seed(seed)
  }
  if (is.na(tau1))
  {
    sd <- (logit(phi2) - logit(phi1)) / 6
    tau1 <- 1 / sd / sd
    cat("The value of tau1 is set at:", tau1, "\n")
  }
  #print(tau1)

  xLim <- max(xDat / nDat) + 0.3
  #print(xDat)
  t <- SubgroupPost(
    xDat = xDat,
    nDat = nDat,
    numGroup = numGroup,
    pp1 = phi1,
    pp2 = phi2,
    alpha = alpha,
    beta = beta,
    tau1 = tau1,
    tau2 = tau2,
    tau4 = tau4,
    clusterCutoff = clusterCutoff,
    MCNum = MCNum
  )
  return(t)
}

Try the bacistool package in your browser

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

bacistool documentation built on July 1, 2020, 10:24 p.m.