# NOT RUN {
meEst <- meVEV(iris[,-5], unmap(iris[,5]))
names(meEst)
meEst$parameters$variance
dec <- meEst$parameters$variance
decomp2sigma(d=dec$d, G=dec$G, shape=dec$shape, scale=dec$scale,
orientation = dec$orientation)
# }
# NOT RUN {
do.call("decomp2sigma", dec) ## alternative call
# }
Run the code above in your browser using DataLab