# NOT RUN {
dat <- loadDataSet("Swiss Roll", n = 300)
## use the S4 Class directly:
drl <- DrL()
emb <- drl@fun(dat, drl@stdpars)
## simpler, use embed():
emb2 <- embed(dat, "DrL")
plot(emb)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab