# NOT RUN {
dat <- loadDataSet("variable Noise Helix", n = 200)[sample(200)]
## use the S4 Class directly:
drr <- DRR()
pars <- drr@stdpars
pars$ndim <- 3
emb <- drr@fun(dat, pars)
## simpler, use embed():
emb2 <- embed(dat, "DRR", ndim = 3)
plot(dat, type = "3vars")
plot(emb, type = "3vars")
plot(emb@inverse(emb@data@data[, 1, drop = FALSE]), type = "3vars")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab