# generate some data with the desired margins
dat <- matrix(evd::rfrechet(300), 100, 3)
maxPCA <- max_stable_prcomp(dat, 2)
# look at summary to obtain further information about
# loadings the space spanned and loss function
summary(maxPCA)
# transfrom data to compressed representation
# for a representation that is p-dimensional,
# preserves the max-stable structure and is numeric solution to
# optimal reconstruction.
compr <- compress(maxPCA, dat)
# For visual examination reconstruct original vector from compressed representation
rec <- reconstruct(maxPCA, dat)
Run the code above in your browser using DataLab