### R code from vignette source 'Computing_returns.Rnw'

###################################################
### code chunk number 1: Computing_returns.Rnw:25-28
###################################################
options(continue = "  ", digits = 3, width = 62, useFancyQuotes = FALSE)
pv <- packageVersion("PMwR")
pv <- gsub("(.*)[.](.*)", "\\1-\\2", pv)


###################################################
### code chunk number 2: Computing_returns.Rnw:42-44
###################################################
library("PMwR")
library("zoo")


###################################################
### code chunk number 3: Computing_returns.Rnw:50-52
###################################################
library("PMwR")
returns(100:105)


###################################################
### code chunk number 4: Computing_returns.Rnw:67-70
###################################################
library("zoo")
DAX <- zoo(DAX[[1]], as.Date(row.names(DAX)))
REXP <- zoo(REXP[[1]], as.Date(row.names(REXP)))


###################################################
### code chunk number 5: Computing_returns.Rnw:76-77
###################################################
str(DAX)


###################################################
### code chunk number 6: Computing_returns.Rnw:79-80
###################################################
options(width = 70)


###################################################
### code chunk number 7: Computing_returns.Rnw:83-84
###################################################
head(returns(DAX))


###################################################
### code chunk number 8: Computing_returns.Rnw:91-92
###################################################
returns(head(cbind(DAX, REXP), 5))


###################################################
### code chunk number 9: Computing_returns.Rnw:99-103
###################################################
returns(DAX, period = "year")
returns(DAX, period = "month")
returns(DAX, period = "2015")
returns(DAX, period = "annualised")


###################################################
### code chunk number 10: Computing_returns.Rnw:107-109
###################################################
returns(cbind(DAX, REXP), period = "year")
returns(cbind(DAX, REXP), period = "month")


###################################################
### code chunk number 11: Computing_returns.Rnw:118-119
###################################################
range(returns(DAX, period = "month"))


###################################################
### code chunk number 12: Computing_returns.Rnw:128-129
###################################################
toLatex(returns(DAX, period = "month"))


###################################################
### code chunk number 13: Computing_returns.Rnw:135-136 (eval = FALSE)
###################################################
## toLatex(returns(DAX, period = "month"))


###################################################
### code chunk number 14: Computing_returns.Rnw:141-142 (eval = FALSE)
###################################################
## vignette("FinTeX", package = "PMwR")