# NOT RUN {
data('BuildIt')
# Draw a sample of 100 monetary units from the population using
# fixed interval monetary unit sampling
sample <- selection(population = BuildIt, sampleSize = 100,
algorithm = 'interval', units = 'mus', bookValues = 'bookValue')$sample
# Evaluate using the Stringer bound
result <- evaluation(confidence = 0.95, materiality = 0.05,
method = 'stringer', sample = sample,
bookValues = 'bookValue', auditValues = 'auditValue')
# }
# NOT RUN {
report(result)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab