## draw kernel pca coefficients after calling rde
d <- sincdata(100, 0.1) # generate sinc data
K <- rbfkernel(d$X)
r <- rde(K, d$y, est_noise = TRUE)
drawkpc(r)
## draw kernel pca coefficients after calling selectmodel
d <- sincdata(100, 0.1) # generate sinc data
m <- selectmodel(d$X, d$y, est_noise = TRUE, sigma = logspace(-3, 3, 100))
drawkpc(m)
Run the code above in your browser using DataLab