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