library("acro")

# Initialize ACRO
acro_init(suppress = TRUE)

# Your analysis code here
# ACRO will automatically check outputs for disclosure risks

# Example of creating a cross-tabulation with ACRO
result <- acro_crosstab(data$variable1, data$variable2)

# ACRO automatically applies disclosure control
print(result)

# When you're done with your analysis
acro_finalise()