## Plot points in one dimension
x <- rep(0, 100)
y <- rnorm(100)
plot(x, y, xlim = c(-1, 2))
## Add smile-transformed points
xs <- smile(y, xsize = yinch(0.08), ysize = xinch(0.08))
points(xs + 1, y, col = 2)
Run the code above in your browser using DataLab