For posterity's sake, here is the solution I figured out.  Putting the
following lines after the plot(f) command seems to set the angle correctly:

myasp <-
(par("fin")[2]-par("mai")[1]-par("mai")[3])/(par("fin")[1]-par("mai")[2]-par("mai")[4])
(f_angle <- atan(myasp)*180/pi)
(g_angle <- atan(2*myasp)*180/pi)


-- 
Levi Waldron
post-doctoral fellow
Jurisica Lab, Ontario Cancer Institute
Division of Signaling Biology
TMDT 9-304D
101 College Street
Toronto, Ontario M5G 1L7
(416)581-7453

	[[alternative HTML version deleted]]


