Equity Beta R model source code