## MODELING: REGRESSION ANALYSIS AND ATTRIBUTION ----

## Regression Analysis
model <- lm(master.data$gold.returns ~., data = cbind(master.data$chg.real.rates, master.data$chg.euro.usd))
summary(model)

## Dominance Analysis and Attribution

calc.relimp(model, rela = FALSE)