R/get.asp.R

In mapplots: Data Visualisation on Maps

Defines functions get.asp

Documented in get.asp

get.asp <-
function(){
  pin <- par('pin')
  usr <- par('usr')
  asp <- (pin[2]/(usr[4]-usr[3])) / (pin[1]/(usr[2]-usr[1]))
  return(asp)
}

Try the mapplots package in your browser