# NOT RUN {
library(RMAWGEN)
set.seed(1222)
nIterations <- 30
N <- 20
x <- rexp(N)
y <- x+rnorm(N)
df <- data.frame(x=x,y=y)
GPCA <- GPCA(df,n=nIterations,extremes=TRUE)
x <- rnorm(N)
y <- x+rnorm(N)
dfn <- data.frame(x=x,y=y)
GPCAn <- GPCA(dfn,n=nIterations,extremes=TRUE)
df_out <- inv_GPCA(GPCA_param=GPCA,extremes=TRUE)
dfn_out <- inv_GPCA(GPCA_param=GPCAn,extremes=TRUE)
# }
Run the code above in your browser using DataLab