2
# This library is free software; you can redistribute it and/or
3
# modify it under the terms of the GNU Library General Public
4
# License as published by the Free Software Foundation; either
5
# version 2 of the License, or (at your option) any later version.
7
# This library is distributed in the hope that it will be useful,
8
# but WITHOUT ANY WARRANTY; without even the implied warranty of
9
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10
# GNU Library General Public License for more details.
12
# You should have received a copy of the GNU Library General
13
# Public License along with this library; if not, write to the
14
# Free Foundation, Inc., 59 Temple Place, Suite 330, Boston,
19
# 1999 - Diethelm Wuertz, GPL
20
# 2007 - Rmetrics Foundation, GPL
21
# Diethelm Wuertz <wuertz@itp.phys.ethz.ch>
22
# for code accessed (or partly included) from other sources:
23
# see Rmetric's copyright and license files
26
################################################################################
28
# test.frontierPoints.feasiblePortfolio
29
# test.frontierPoints.portfolioFrontier
30
################################################################################
33
test.frontierPoints.feasiblePortfolio <-
37
data = as.timeSeries(data(smallcap.ts))
38
data = data[, c("BKE", "GG", "GYMB", "KRON")]
42
spec = portfolioSpec()
43
setWeights(spec) = rep(1/ncol(data), ncol(data))
47
constraints = "LongOnly"
51
portfolio = feasiblePortfolio(data, spec, constraints)
55
points = frontierPoints(portfolio)
58
# Specify Return/Risk Measures, explicitely:
59
print(frontierPoints(portfolio, auto = TRUE))
60
print(frontierPoints(portfolio,
61
risk = "Cov", auto = FALSE))
62
print(frontierPoints(portfolio,
63
risk = "Sigma", auto = FALSE))
64
print(frontierPoints(portfolio,
65
risk = "CVaR", auto = FALSE))
66
print(frontierPoints(portfolio,
67
risk = "VaR", auto = FALSE))
68
print(frontierPoints(portfolio,
69
return = "mu", risk = "CVaR", auto = FALSE))
76
# ------------------------------------------------------------------------------
79
test.frontierPoints.portfolioFrontier <-
83
data = as.timeSeries(data(smallcap.ts))
84
data = data[, c("BKE", "GG", "GYMB", "KRON")]
88
spec = portfolioSpec()
92
constraints = "LongOnly"
96
frontier = portfolioFrontier(data)
100
points = frontierPoints(frontier)
103
# Specify Return/Risk Measures, explicitely:
104
print(frontierPoints(frontier, auto = TRUE))
105
print(frontierPoints(frontier,
106
return = "mean", risk = "Cov", auto = FALSE))
107
print(frontierPoints(frontier,
108
return = "mean", risk = "Sigma", auto = FALSE))
109
print(frontierPoints(frontier,
110
return = "mean", risk = "CVaR", auto = FALSE))
111
print(frontierPoints(frontier,
112
return = "mean", risk = "VaR", auto = FALSE))
119
################################################################################