Kernel PCA with sigmoid kernel (Geron Ch 7, morie.fn hmkpsg)
Source:R/geron_w4b_native.R
morie_geron_kernel_pca_sigmoid.RdKernel PCA with sigmoid kernel (Geron Ch 7, morie.fn hmkpsg)
Value
List with X_projected, eigenvalues, alphas, K, n_negative_eigenvalues, is_psd, estimate, n, method.
Examples
morie_geron_kernel_pca_sigmoid(X = c(1, 2, 3, 4, 5, 6, 7, 8), n_components = 5L)
#> $X_projected
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] -2.847567e-03 -1.028012e-10 0 0 0
#> [2,] 2.068965e-02 4.882732e-08 0 0 0
#> [3,] 5.021405e-05 -2.668739e-06 0 0 0
#> [4,] -3.182285e-03 1.735427e-05 0 0 0
#> [5,] -3.627802e-03 -1.238905e-06 0 0 0
#> [6,] -3.688244e-03 -4.206528e-06 0 0 0
#> [7,] -3.696427e-03 -4.616572e-06 0 0 0
#> [8,] -3.697534e-03 -4.672220e-06 0 0 0
#>
#> $eigenvalues
#> [1] 5.003989e-04 3.706673e-10 9.751773e-16 2.878875e-20 -4.106793e-17
#>
#> $alphas
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] -5.690594 -0.277341 0 0 0
#> [2,] 41.346301 131.728172 0 0 0
#> [3,] 0.100348 -7199.824939 0 0 0
#> [4,] -6.359496 46818.989068 0 0 0
#> [5,] -7.249820 -3342.365237 0 0 0
#> [6,] -7.370607 -11348.527944 0 0 0
#> [7,] -7.386959 -12454.761294 0 0 0
#> [8,] -7.389172 -12604.890651 0 0 0
#>
#> $K
#> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
#> [1,] 0.9640276 0.9950548 0.9993293 0.9999092 0.9999877 0.9999983 0.9999998 1
#> [2,] 0.9950548 0.9999092 0.9999983 1.0000000 1.0000000 1.0000000 1.0000000 1
#> [3,] 0.9993293 0.9999983 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1
#> [4,] 0.9999092 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1
#> [5,] 0.9999877 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1
#> [6,] 0.9999983 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1
#> [7,] 0.9999998 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1
#> [8,] 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1.0000000 1
#>
#> $K_centered
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] -0.0262913980 1.538214e-04 3.882696e-03 0.0043899083 0.0044585985
#> [2,] 0.0001538214 4.263179e-04 -3.022052e-05 -0.0001012806 -0.0001110678
#> [3,] 0.0038826964 -3.022052e-05 -5.742327e-04 -0.0006469212 -0.0006567384
#> [4,] 0.0043899083 -1.012806e-04 -6.469212e-04 -0.0007196139 -0.0007294310
#> [5,] 0.0044585985 -1.110678e-04 -6.567384e-04 -0.0007294310 -0.0007392482
#> [6,] 0.0044678956 -1.123955e-04 -6.580666e-04 -0.0007307593 -0.0007405764
#> [7,] 0.0044691538 -1.125753e-04 -6.582463e-04 -0.0007309390 -0.0007407562
#> [8,] 0.0044693241 -1.125996e-04 -6.582707e-04 -0.0007309633 -0.0007407805
#> [,6] [,7] [,8]
#> [1,] 0.0044678956 0.0044691538 0.0044693241
#> [2,] -0.0001123955 -0.0001125753 -0.0001125996
#> [3,] -0.0006580666 -0.0006582463 -0.0006582707
#> [4,] -0.0007307593 -0.0007309390 -0.0007309633
#> [5,] -0.0007405764 -0.0007407562 -0.0007407805
#> [6,] -0.0007419046 -0.0007420844 -0.0007421087
#> [7,] -0.0007420844 -0.0007422641 -0.0007422885
#> [8,] -0.0007421087 -0.0007422885 -0.0007423128
#>
#> $spectrum
#> [1] 5.003989e-04 3.706673e-10 9.739692e-16 2.878942e-20 -4.148690e-17
#> [6] -1.556212e-14 -1.164798e-06 -3.062389e-02
#>
#> $n_negative_eigenvalues
#> [1] 2
#>
#> $is_psd
#> [1] FALSE
#>
#> $gamma
#> [1] 1
#>
#> $coef0
#> [1] 1
#>
#> $estimate
#> [1] 0.0005003989
#>
#> $n
#> [1] 8
#>
#> $method
#> [1] "Kernel PCA (sigmoid kernel)"
#>