This function makes an inverse iteration of PCA-Gaussianization process

Share:

Description

This function makes an inverse iteration of PCA-Gaussianization process

Usage

1
2
inv_GPCA_iteration(x = GPCA_iter_param$x_next, GPCA_iter_param, type = 3,
  extremes = TRUE)

Arguments

x

matrix of gaussian random variale to transform

GPCA_iter_param

GPCAiteration S3 object returned by the function GPCA_iteration corresponding the related direct iteration

type

see normalizeGaussian_severalstations

extremes

see normalizeGaussian_severalstations

Value

the non-Gaussian random variable

Note

This function is based on the inverse of the equation (1) of "PCA Gaussianization for One-Class Remote Sensing Image" by V. Laparra et al., http://dx.doi.org/doi/10.1117/12.834011

See Also

GPCA,GPCA_iteration,inv_GPCA_iteration,inv_GPCA,GPCA-class for 'GPCA' S3 class

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
library(RMAWGEN)
set.seed(1222)
N <- 20
x <- rexp(N)
y <- x+rnorm(N)
df <- data.frame(x=x,y=y)

GPCA <- GPCA_iteration(df,extremes=TRUE)

x <- rnorm(N)
y <- x+rnorm(N)
dfn <- data.frame(x=x,y=y)

GPCAn <- GPCA_iteration(dfn,extremes=TRUE)

df_out <- inv_GPCA_iteration(GPCA_iter_param=GPCA,extremes=TRUE)
dfn_out <- inv_GPCA_iteration(GPCA_iter_param=GPCAn,extremes=TRUE)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.