Sundar, > Perhaps this will work for you? > > plot(1:10) > w <- par("pin")[1]/diff(par("usr")[1:2]) > h <- par("pin")[2]/diff(par("usr")[3:4]) > asp <- w/h
Thank you for your help. For vertical exaggeration I will make a slight change to make it more intuitive (for me): w <- diff(par("usr")[1:2]) / par("pin")[1] # plot units per inch horizontal axis h <- diff(par("usr")[3:4]) / par("pin")[2] # plot units per inch vertical axis vertical.exaggeration <- w/h Scott Waichler ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html