classicResults <- estimate_classic(
x = create_op(testSVY), w = testPSU, replicates = 3
)
probitResults <- estimate_probit(
x = create_op(testSVY), w = testPSU, replicates = 3
)
resultsDF <- merge_op(x = classicResults, y = probitResults)
# \donttest{
report_op_pdf(
svy = testSVY, estimates = resultsDF, indicators = "mental",
filename = paste(tempdir(), "report", sep = "/")
)
# }
Run the code above in your browser using DataLab