powered by
conditionalSECdistr(object, fixed.comp, fixed.values, name, drop = TRUE)
SECdistrMv
family="SN"
family="ESN"
1:d
d
fixed.comp
TRUE
SECdistrUv
length(fixed.comp)+1=d
drop=TRUE
SECdistrUv-class
makeSECdistr
SECdistrMv-class
affineTransSECdistr
Omega <- diag(3) + outer(1:3,1:3) sn <- makeSECdistr(dp=list(xi=rep(0,3), Omega=Omega, alpha=1:3), family="SN") esn <- conditionalSECdistr(sn, fixed.comp=2, fixed.values=1.5) show(esn)
Run the code above in your browser using DataLab