# NOT RUN {
dat <- loadDataSet("3D S Curve")
## use the S4 class directly:
kpca <- kPCA()
emb <- kpca@fun(dat, kpca@stdpars)
## simpler, use embed():
emb2 <- embed(dat, "kPCA")
plot(emb, type = "2vars")
# }
Run the code above in your browser using DataLab