powered by
Asp()
w <- par("pin")[1] / diff(par("usr")[1:2]) h <- par("pin")[2] / diff(par("usr")[3:4]) asp <- w/h
Run the code above in your browser using DataLab