Nothing
### R code from vignette source 'portfolio.Rnw'
###################################################
### code chunk number 1: portfolio.Rnw:25-26
###################################################
op <- options(width = 50, digits = 4, scipen = 5)
###################################################
### code chunk number 2: portfolio.Rnw:52-56
###################################################
library(portfolio)
data(dow.jan.2005)
summary(dow.jan.2005)
head(dow.jan.2005)
###################################################
### code chunk number 3: portfolio.Rnw:70-71
###################################################
options(digits = 3)
###################################################
### code chunk number 4: portfolio.Rnw:74-82
###################################################
p <- new("portfolioBasic",
instant = as.Date("2004-12-31"),
id.var = "symbol",
in.var = "price",
sides = "long",
ret.var = "month.ret",
data = dow.jan.2005)
summary(p)
###################################################
### code chunk number 5: portfolio.Rnw:110-111
###################################################
exposure(p, exp.var = c("price", "sector"))
###################################################
### code chunk number 6: portfolio.Rnw:145-146
###################################################
performance(p)
###################################################
### code chunk number 7: portfolio.Rnw:164-165
###################################################
contribution(p, contrib.var = c("sector"))
###################################################
### code chunk number 8: portfolio.Rnw:208-209
###################################################
contribution(p, contrib.var = c("cap.bil"))
###################################################
### code chunk number 9: portfolio.Rnw:237-246
###################################################
p <- new("portfolioBasic",
instant = as.Date("2004-12-31"),
id.var = "symbol",
in.var = "price",
type = "linear",
sides = c("long", "short"),
ret.var = "month.ret",
data = dow.jan.2005)
summary(p)
###################################################
### code chunk number 10: portfolio.Rnw:268-269
###################################################
plot(p)
###################################################
### code chunk number 11: portfolio.Rnw:278-279
###################################################
exposure(p, exp.var = c("price", "sector"))
###################################################
### code chunk number 12: portfolio.Rnw:324-325
###################################################
plot(exposure(p, exp.var = c("price", "sector")))
###################################################
### code chunk number 13: portfolio.Rnw:333-334
###################################################
performance(p)
###################################################
### code chunk number 14: portfolio.Rnw:349-350
###################################################
contribution(p, contrib.var = c("cap.bil", "sector"))
###################################################
### code chunk number 15: portfolio.Rnw:371-372
###################################################
plot(contribution(p, contrib.var = c("cap.bil", "sector")))
###################################################
### code chunk number 16: portfolio.Rnw:393-394
###################################################
options(op)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.