search for: yuin

[Env: R 2.12.2, Win XP] I'm creating figures using MASS::eqcsplot to provide equal scaling of the axes. My figures work OK when I plot to the screen, but when I try to do the same plot as a postscript file, I get an unexplicable error, > figframe() Error in if (yuin > xuin * ratio) yuin <- xuin * ratio else xuin <- yuin/ratio : missing value where TRUE/FALSE needed > traceback() 2: eqscplot(x = 0, y = 0, xlim = xlim, ylim = ylim, xlab = xlab, ylab = ylab, type = "n") 1: figframe() > Here is a minimal source script exhibi...

...the last line in eqscplot() (in which plot() gets called), I found the following: > eqscplot(x=1, y=1) Called from: eqscplot(x = 1, y = 1) Browse[1]> xlim [1] NaN NaN Browse[1]> ylim [1] NaN NaN This results from the lines 35 and 36: xuin <- oxuin <- oldpin[1]/diff(xlim) yuin <- oyuin <- oldpin[2]/diff(ylim) which will give Inf values, since diff(xlim) and diff(ylim) will be zero at that point (xlim and ylim containing c(1, 1) in this case). I can't propose a patch, though, since I haven't the time to really work out how the calculation is done (sorry)....

...found the following: > > > eqscplot(x=1, y=1) > Called from: eqscplot(x = 1, y = 1) > Browse[1]> xlim > [1] NaN NaN > Browse[1]> ylim > [1] NaN NaN > > > This results from the lines 35 and 36: > > xuin <- oxuin <- oldpin[1]/diff(xlim) > yuin <- oyuin <- oldpin[2]/diff(ylim) > > which will give Inf values, since diff(xlim) and diff(ylim) will be zero at > that point (xlim and ylim containing c(1, 1) in this case). > > I can't propose a patch, though, since I haven't the time to really work out > how the c...