priorList1 <- list(betaA1 = 10, betaA2 = 1, betaB1 = 1, betaB2 = 10)
priorList2 <- list(betaA1 = 0.18, betaA2 = 0.18, betaB1 = 0.18, betaB2 = 0.18)
priorList3 <- list(betaA1 = 1, betaA2 = 1, betaB1 = 1, betaB2 = 1)
simResult <- simulateTwoProportions(
hyperparameterList = list(priorList1, priorList2, priorList3),
alternativeRestriction = "none",
alpha = 0.1, beta = 0.2, na = 1, nb = 1,
deltamax = -0.4, deltamin = -0.9, deltaGridSize = 3,
M = 10
)
plot(simResult)
Run the code above in your browser using DataLab