# Simulated transaction data transactions <- data.frame( id = 1:3, amount = c(100, 250, 50), currency = c("CAD", "EUR", "GBP") )