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