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.tangencyPortfolio.MV.LongOnly
29
# test.tangencyPortfolio.CVaR.LongOnly
30
################################################################################
34
test.tangencyPortfolio.MV.LongOnly <-
38
data = as.timeSeries(data(smallcap.ts))
39
data = data[, c("BKE", "GG", "GYMB", "KRON")]
43
spec = portfolioSpec()
47
constraints = "LongOnly"
51
portfolio = tangencyPortfolio(data, spec, constraints)
59
# ------------------------------------------------------------------------------
62
test.tangencyPortfolio.CVaR.LongOnly <-
65
# Linear Programming - CVaR Portfolio:
66
# the return is fixed, we minimie the CVaR
69
data = as.timeSeries(data(smallcap.ts))
70
data = data[, c("BKE", "GG", "GYMB", "KRON")]
74
spec = portfolioSpec()
75
setType(spec) = "CVaR"
76
setTargetReturn(spec) = mean(colMeans(data))
81
constraints = "LongOnly"
85
portfolio = tangencyPortfolio(data, spec, constraints)
93
################################################################################