Kernel PCA with RBF kernel (Geron Ch 7, morie.fn hmkprbf)
Source:R/geron_w4b_native.R
morie_geron_kernel_pca_rbf_hmkprbf.RdKernel PCA with RBF kernel (Geron Ch 7, morie.fn hmkprbf)
Value
List with X_projected, eigenvalues, alphas, K, explained_variance_ratio, gamma, estimate, n, method.
Examples
morie_geron_kernel_pca_rbf_hmkprbf(X = c(1, 2, 3, 4, 5, 6, 7, 8), n_components = 5L)
#> $X_projected
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] -0.3893194 -0.4263490 -0.4902418 -0.3853429 -0.31607046
#> [2,] -0.5814793 -0.3392977 -0.1564539 0.2239087 0.32690035
#> [3,] -0.5071032 0.1558183 0.4316042 0.4113697 -0.00573861
#> [4,] -0.1996176 0.6098284 0.3154406 -0.2499355 -0.32123101
#> [5,] 0.1996176 0.6098284 -0.3154406 -0.2499355 0.32123101
#> [6,] 0.5071032 0.1558183 -0.4316042 0.4113697 0.00573861
#> [7,] 0.5814793 -0.3392977 0.1564539 0.2239087 -0.32690035
#> [8,] 0.3893194 -0.4263490 0.4902418 -0.3853429 0.31607046
#>
#> $eigenvalues
#> [1] 1.5733770 1.3861327 1.1011994 0.8606342 0.6199733
#>
#> $alphas
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] -0.2474419 -0.3075817 -0.4451889 -0.4477430 -0.50981300
#> [2,] -0.3695740 -0.2447801 -0.1420759 0.2601671 0.52728131
#> [3,] -0.3223024 0.1124122 0.3919401 0.4779844 -0.00925622
#> [4,] -0.1268720 0.4399495 0.2864518 -0.2904085 -0.51813681
#> [5,] 0.1268720 0.4399495 -0.2864518 -0.2904085 0.51813681
#> [6,] 0.3223024 0.1124122 -0.3919401 0.4779844 0.00925622
#> [7,] 0.3695740 -0.2447801 0.1420759 0.2601671 -0.52728131
#> [8,] 0.2474419 -0.3075817 0.4451889 -0.4477430 0.50981300
#>
#> $K
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] 1.000000e+00 3.678794e-01 1.831564e-02 1.234098e-04 1.125352e-07
#> [2,] 3.678794e-01 1.000000e+00 3.678794e-01 1.831564e-02 1.234098e-04
#> [3,] 1.831564e-02 3.678794e-01 1.000000e+00 3.678794e-01 1.831564e-02
#> [4,] 1.234098e-04 1.831564e-02 3.678794e-01 1.000000e+00 3.678794e-01
#> [5,] 1.125352e-07 1.234098e-04 1.831564e-02 3.678794e-01 1.000000e+00
#> [6,] 1.388794e-11 1.125352e-07 1.234098e-04 1.831564e-02 3.678794e-01
#> [7,] 2.319523e-16 1.388794e-11 1.125352e-07 1.234098e-04 1.831564e-02
#> [8,] 5.242886e-22 2.319523e-16 1.388794e-11 1.125352e-07 1.234098e-04
#> [,6] [,7] [,8]
#> [1,] 1.388794e-11 2.319523e-16 5.242886e-22
#> [2,] 1.125352e-07 1.388794e-11 2.319523e-16
#> [3,] 1.234098e-04 1.125352e-07 1.388794e-11
#> [4,] 1.831564e-02 1.234098e-04 1.125352e-07
#> [5,] 3.678794e-01 1.831564e-02 1.234098e-04
#> [6,] 1.000000e+00 3.678794e-01 1.831564e-02
#> [7,] 3.678794e-01 1.000000e+00 3.678794e-01
#> [8,] 1.831564e-02 3.678794e-01 1.000000e+00
#>
#> $K_centered
#> [,1] [,2] [,3] [,4] [,5] [,6]
#> [1,] 0.8623475 0.1842420 -0.1676113 -0.1858189 -0.1859422 -0.1859269
#> [2,] 0.1842420 0.7703776 0.1359676 -0.2136116 -0.2318039 -0.2319117
#> [3,] -0.1676113 0.1359676 0.7657987 0.1336627 -0.2159011 -0.2340779
#> [4,] -0.1858189 -0.2136116 0.1336627 0.7657678 0.1336473 -0.2159011
#> [5,] -0.1859422 -0.2318039 -0.2159011 0.1336473 0.7657678 0.1336627
#> [6,] -0.1859269 -0.2319117 -0.2340779 -0.2159011 0.1336627 0.7657987
#> [7,] -0.1836375 -0.2296224 -0.2319117 -0.2318039 -0.2136116 0.1359676
#> [8,] -0.1376525 -0.1836375 -0.1859269 -0.1859422 -0.1858189 -0.1676113
#> [,7] [,8]
#> [1,] -0.1836375 -0.1376525
#> [2,] -0.2296224 -0.1836375
#> [3,] -0.2319117 -0.1859269
#> [4,] -0.2318039 -0.1859422
#> [5,] -0.2136116 -0.1858189
#> [6,] 0.1359676 -0.1676113
#> [7,] 0.7703776 0.1842420
#> [8,] 0.1842420 0.8623475
#>
#> $explained_variance_ratio
#> [1] 0.2486144 0.2190273 0.1740041 0.1359916 0.0979640
#>
#> $gamma
#> [1] 1
#>
#> $estimate
#> [1] 1.573377
#>
#> $n
#> [1] 8
#>
#> $method
#> [1] "Kernel PCA (RBF kernel)"
#>