data(managers)
CAPM.beta(managers[, "HAM2", drop=FALSE], managers[, "SP500.TR", drop=FALSE], rf = managers[, "US.3m.TR", drop=FALSE])
CAPM.beta.bull(managers[, "HAM2", drop=FALSE], managers[, "SP500.TR", drop=FALSE], rf = managers[, "US.3m.TR", drop=FALSE])
CAPM.beta.bear(managers[, "HAM2", drop=FALSE], managers[, "SP500.TR", drop=FALSE], rf = managers[, "US.3m.TR", drop=FALSE])
timing.ratio(managers[, "HAM2", drop=FALSE], managers[, "SP500.TR", drop=FALSE], rf = managers[, "US.3m.TR", drop=FALSE])
chart.Regression(managers[, "HAM2", drop=FALSE], managers[, "SP500.TR", drop=FALSE], Rf = managers[, "US.3m.TR", drop=FALSE], fit="conditional", main="Conditional Beta")
Run the code above in your browser using DataLab