Create data

library("mlbench")
set.seed(2015)
Cassini <- mlbench.cassini(1250)
plot(Cassini)