
Last chance! 50% off unlimited learning
Sale ends in
if (FALSE) {
if(requireNamespace("kernlab", quietly = TRUE)) {
dat <- loadDataSet("3D S Curve")
emb <- embed(dat, "kPCA")
plot(emb, type = "2vars")
}
}
Run the code above in your browser using DataLab