# -------------------------------------------------------------------------------------------------
# -------------------------------------------------------------------------------------------------
# TODO: add tomas ref:
# -------------------------------------------------------------------------------------------------
# -------------------------------------------------------------------------------------------------
getPCAFeatures = function(data, sigma = 0.1) {
pca = kernlab::kpca(~., data = data, kernel = "rbfdot",
kpar = list(sigma=sigma), th = 0)
ret = pca@eig
names(ret) = paste0("PCA.", names(ret))
return(ret)
}
# -------------------------------------------------------------------------------------------------
# -------------------------------------------------------------------------------------------------
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.