# NOT RUN {
library(jfa)
# Specify the materiality, confidence, and expected errors:
materiality <- 0.05 # 5%
confidence <- 0.95 # 95%
expectedError <- 0.025 # 2.5%
# Specify the inherent risk (ir) and control risk (cr):
ir <- 1 # 100%
cr <- 0.6 # 60%
# Create a beta prior distribution according to the Audit Risk Model (arm)
# and a binomial likelihood:
prior <- auditPrior(materiality = materiality, confidence = confidence,
method = "arm", ir = ir, cr = cr,
expectedError = expectedError, likelihood = "binomial")
print(prior)
# jfa prior distribution for arm method:
#
# Prior sample size: 51
# Prior errors: 1.27
# Prior: beta(2.275, 50.725)
# }
Run the code above in your browser using DataLab