# NOT RUN {
x <- c(1:5)
y <- x^2
dx <- c(0.1, 0.2, 0.2, 0.1, 0.05)
dy <- c(0.05, 0.2, 0.1, 0.2, 0.1)
cor <- c(1, -1, -1, 1, 1)
plot(NA, xlim=range(x), ylim=range(y), xlab="y", ylab="y")
pointswithslantederror(x=x, y=y, dx=dx, dy=dy, cor=cor)
# }
Run the code above in your browser using DataLab