assetsSim Simulates a data set of assets,
assetsSelect Asset Selection from Portfolios,
assetsFit Fits the parameter of a data set of assets,
print S3 print method for an object of class 'fASSETS',
plot S3 Plot method for an object of class 'fASSETS",
summary S3 summary method for an object of class 'fASSETS'. }assetsSim(n, dim = 2, model = list(mu = rep(0, dim), Omega = diag(dim),
alpha = rep(0, dim), df = Inf), assetNames = NULL)
assetsFit(x, method = c("st", "snorm", "norm"), title = NULL,
description = NULL, fixed.df = NA, ...)## S3 method for class 'fASSETS':
show(object)
## S3 method for class 'fASSETS':
plot(x, which = "ask", \dots)
## S3 method for class 'fASSETS':
summary(object, which = "all", \dots)
dim allowing
for modifying the names of the individual assets."fASSETS" object.NA, the default, or a numeric value assigning the
number of degrees of freedom to the model. In the case that
fixed.df=NA the value of df will be included in the
optimizmethod="st" denotes a multivariate skew-Student-t distribution,
method="snorm" a multivariate skew-Normal distribution, and
<mu a vector of mean values, one for each asset series,
Omega the covariance matrix of assets,
alpha the skewness vector, and
df the number of degrees of frefASSETS."fASSETS" object.which can
be either a character string, "all" (displays all plots)
or "ask" (interactively asks which one to display), or a
vector of 5 logical as.matrix to an object of
class matrix<assetsFit()
returns a S4 object class of class "fASSETS", with the following
slots:"norm", "snorm", "st".model=list(mu, Omega, alpha, df.@fit slot is a list with the following compontents:
(Note, not all are documented here).dim(beta)=c(nrow(X), ncol(y)), Omega is a
covariance matrix of order dim, alpha is
a vector of shape parameters of length dim.optim; see the
documentation of this function for explanation of its
components.@fit$model slot can be used as input to the
function assetsSim for simulating a similar portfolio of
assets compared with the original portfolio data, usually market
assets.
assetsSim()
returns a matrix, the artifical data records represent the assets
of the portfolio. Row names and column names are not created, they
have to be added afterwards.x can be expressed as multivariate
'timeSeries' objects, as 'data.frame' objects, or any other rectangular
object which can be transformed into an object of class 'matrix'.
Parameter Estimation:
The function assetsFit for the parameter estimation and
assetsSim for the simulation of assets sets use code based on
functions from the contributed packages "mtvnorm" and "sn".
The required functionality for fitting data to a multivariate Normal,
skew-Normal, or skew-Student-t is available from builtin functions, so
it is not necessary to load the packages "mtvnorm" and "sn".Azzalini A. (1986); Further Results on a Class of Distributions Which Includes the Normal Ones, Statistica 46, 199--208.
Azzalini A., Dalla Valle A. (1996); The Multivariate Skew-normal Distribution, Biometrika 83, 715--726.
Azzalini A., Capitanio A. (1999); Statistical Applications of the Multivariate Skew-normal Distribution, Journal Roy. Statist. Soc. B61, 579--602.
Azzalini A., Capitanio A. (2003); Distributions Generated by Perturbation of Symmetry with Emphasis on a Multivariate Skew-t Distribution, Journal Roy. Statist. Soc. B65, 367--389. Genz A., Bretz F. (1999); Numerical Computation of Multivariate t-Probabilities with Application to Power Calculation of Multiple Contrasts, Journal of Statistical Computation and Simulation 63, 361--378.
Genz A. (1992); Numerical Computation of Multivariate Normal Probabilities, Journal of Computational and Graphical Statistics 1, 141--149. Genz A. (1993); Comparison of Methods for the Computation of Multivariate Normal Probabilities, Computing Science and Statistics 25, 400--405. Hothorn T., Bretz F., Genz A. (2001); On Multivariate t and Gauss Probabilities in R, R News 1/2, 27--29.
MultivariateDistribution.## LPP -
# Percentual Returns:
LPP = 100 * as.timeSeries(data(LPP2005REC))[, 1:6]
colnames(LPP)
## assetsFit -
# Fit a Skew-Student-t Distribution:
fit = assetsFit(LPP)
print(fit)
# Show Model Slot:
print(fit@model)
## assetsSim -
# Simulate set with same statistical properties:
set.seed(1953)
lppSim = assetsSim(n = nrow(LPP), dim = ncol(LPP), model = fit@model)
colnames(lppSim) <- colnames(LPP)
rownames(lppSim) <- rownames(LPP)
head(lppSim)Run the code above in your browser using DataLab