> CV_vol_A <- sd(RegA$vol, na.rm = TRUE)/mean(RegA$vol, na.rm = TRUE)
> CV_vol_A
[1] 0.3106773