Equity Beta model R source code – Final Report