## ACCOUNTING

setScience("dbconcile", load=FALSE, subl=FALSE)


accounting.errors <- pairwiseCompareClusters(tbl="fact_sales", dateCol="activityperiodid", colsToAgg=c("gross", "sales", "fx_actual_net", "net_receipt") )

## ANALYTICS
analytcs.errors <- pairwiseCompareClusters(tbl="fact_analytics", dateCol="download_activity_date", colsToAgg=c("units", "freeunits", "royaltydollar") )


cat("\n     ---={ Accounting: }=---\n")
print(accounting.errors)

cat("\n     ---={ Analytics: }=---\n")
print(analytcs.errors)