set.seed(0)
x <- c(rnorm(20),rnorm(3,5,10))
( xmod <- plcoord(x) )
plot(x,xmod)
## This shows what high level pl functions do by default
plot(xmod)
abline(h=attr(xmod,"innerrange"),lty=3, lwd=2)
## plgraphics
plyx(x)
Run the code above in your browser using DataLab