# NOT RUN {
set.seed(8763)
simp <- xyplot(rnorm(10) ~ runif(10))
## Plot it
simp
## Add horizontal and vertical scale lines
ad <-addScales(simp,
scaleline = TRUE,,
ndig.midline = 1 ## only 1 digit will be shown
)
## Plot it
ad
## But here are the actual values
## (shown to default number of digits given
## by "digits" argument of print.default)
scaleline(ad)
## cleanup
rm(simp, ad)
# }
Run the code above in your browser using DataLab