> CV_vol_B <- sd(RegB$vol, na.rm = TRUE)/mean(RegB$vol, na.rm = TRUE)
> CV_vol_B
[1] 0.3670137