# \donttest{
# Usar archivos de ejemplo incluidos en el paquete
cpi_file <- system.file("extdata", "CPI.xlsx",
package = "BayesianDisaggregation")
weights_file <- system.file("extdata", "WEIGHTS.xlsx",
package = "BayesianDisaggregation")
if (nzchar(cpi_file) && nzchar(weights_file)) {
res <- bayesian_disaggregate(cpi_file, weights_file)
# Use tempdir() for CRAN compliance
save_results(res, file.path(tempdir(), "results"))
}
# }
Run the code above in your browser using DataLab