# NOT RUN {
dat <- loadDataSet("3D S Curve", n = 500)
## directy use the S4 class:
lle <- LLE()
emb <- lle@fun(dat, lle@stdpars)
## using embed():
emb2 <- embed(dat, "LLE", knn = 45)
plot(emb, type = "2vars")
plot(emb2, type = "2vars")
# }
Run the code above in your browser using DataLab