# d=1
f1 <- makeSECdistr(dp=c(3,2,5), family="SC", name="Univariate Skew-Cauchy")
plot(f1)
plot(f1, range=c(-3,40), probs=NULL, col=4)
#
# d=2
Omega2 <- matrix(c(3, -3, -3, 5), 2, 2)
f2 <- makeSECdistr(dp=list(c(10,30), Omega=Omega2, alpha=c(-3, 5)),
family="sn", name="SN-2d", compNames=c("x1","x2"))
plot(f2)
x2 <- rmsn(100, dp=slot(f2,"dp"))
plot(f2, main="Distribution 'f2'", probs=c(0.5,0.9), cex.main=1.5, col=2,
cex=0.8, compLabs=c(expression(x[1]), expression(log(z[2]-beta^{1/3}))),
data=x2, data.par=list(col=4, cex=0.6, pch=5))Run the code above in your browser using DataLab