inv_GPCA: This function makes an inverse Gaussianization procedure...

Description Usage Arguments Value Note Author(s) See Also Examples

View source: R/inv_GPCA.R

Description

This function makes an inverse Gaussianization procedure besad on PCA iteration ( see inv_GPCA_iteration

Usage

1
inv_GPCA(x = NULL, GPCA_param, type = 3, extremes = TRUE)

Arguments

x

gaussian random variable to transform

GPCA_param

GPCA-class S3 object returned by the function GPCA

type

see normalizeGaussian_severalstations

extremes

see normalizeGaussian_severalstations

Value

the non-Gaussian random variable

Note

This function re-iterates the inverse of equation (1) of "PCA Gaussianization for One-Class Remote Sensing Image" by V. Laparra et al., http://ieeexplore.ieee.org/document/5413808/

Author(s)

Emanuele Cordano

See Also

GPCA,GPCA_iteration,inv_GPCA_iteration,inv_GPCA

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
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)

RMAWGEN documentation built on May 29, 2017, 9:09 a.m.