## Mutivariate generalized hyperbolic distribution
multivariate.ghyp <- ghyp(sigma=var(matrix(rnorm(9),ncol=3)),mu=1:3,gamma=-2:0)
## Dimension reduces to 2
lin.transf(multivariate.ghyp,multiplier=matrix(1:6,nrow=2),summand=10:11)
## Dimension reduces to 1
lin.transf(multivariate.ghyp, multiplier=1:3)
## Simple transformation
lin.transf(multivariate.ghyp, summand=100:102)
Run the code above in your browser using DataLab