library(scatterplot3d)
xyz <- embedd(rossler.ts, m=3, d=8)
colnames(xyz) <- c("x","y","z")
scatterplot3d(xyz, type="l", xlab=expression(x[t]), ylab=expression(x[t+tau]), zlab=expression(x[t+2*tau]))
Run the code above in your browser using DataLab