# NOT RUN {
data("slingshotExample")
rd <- slingshotExample$rd
cl <- slingshotExample$cl
pto <- slingshot(rd, cl, start.clus = '1')
rd2 <- cbind(rd[,2] + rnorm(nrow(rd)), -rd[,1] + rnorm(nrow(rd)))
pto.new <- embedCurves(pto, rd2)
pto.new
plot(rd2, col = cl, asp = 1)
lines(SlingshotDataSet(pto.new), lwd = 3)
# }
Run the code above in your browser using DataLab