X <- rescale(swedishpines)
plot(X, pch=16, main="")
ys <- yardstick(as.psp(list(xmid=4, ymid=0.5, length=1, angle=0),
window=Window(X)),
txt="1 m")
plot(ys, angle=90)
Run the code above in your browser using DataLab