dbEstat <- as.data.frame(apply(dbEstat[,-1], 2, function(x) x/lag(x) - 1))
dbEstat <- dbEstat %>% mutate(Data = as.Date(as.Date("2001-12-31") %m+% months(0:236)), .before = 1)

Investimento

Equal Weighted

Long Only

Long & Short

Hierarquical Risk Parity

Long Only

Long & Short

Volatility Timing

Long Only

Long & Short

Mínima Variância

Long Only

Long & Short