powered by
nomoCoord(df, val)
x
y
Each scale is assumed to be displayed on the log10 scale.
scales <- LWnomo1(TRUE) fromxy <- nomoCoord(scales$scale1r, 34) toxy <- nomoCoord(scales$scale3, 16^2/(100*34)) segments(fromxy[1], fromxy[2], toxy[1], toxy[2], col="red")
Run the code above in your browser using DataLab