data(jan)
## Single-period brinson analysis
p1 <- brinson(x = jan, date.var = "date", cat.var = "sector",
bench.weight = "benchmark", portfolio.weight = "portfolio", ret.var
= "return")
summary(p1)
exposure(p1, var = "sector")
returns(p1)
plot(p1, var = "sector", type = "exposure")
plot(p1, var = "sector", type = "return")
Run the code above in your browser using DataLab