data(volcano)
image(volcano, col=terrain.colors(100))
HOZscale(volcano,terrain.colors(100) , units = "", SIDE = 1, s1 = 0.4, s2 = 0.95)
plot(1:10, 1:10, type='n')
j = c(runif(1, -10, 10) , runif(1, 20, 10000) )
### example showing scale above and below
HOZscale(j, terrain.colors(100),
units="hi", SIDE=3, s1=.4, s2=0.6, format=2, digits=2, cex.units = 1.2, cex=1.2)
j = c(runif(1, -10, 10)/1000 , runif(1, 1, 10) )
HOZscale(j, terrain.colors(100),
units="hi", SIDE=1, s1=.6, s2=0.8, format=2, digits=2, cex.units = 0.8)
Run the code above in your browser using DataLab