R/getPCAFeatures.R

In rgmantovani/MfeatExtractor: Extract meta-features from classification datasets

# -------------------------------------------------------------------------------------------------
# -------------------------------------------------------------------------------------------------

#  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)
}

# -------------------------------------------------------------------------------------------------
# -------------------------------------------------------------------------------------------------