\name{PlotStereoMap}
\alias{PlotStereoMap}
\title{
Maps A Two-Dimensional Variable On A Polar Stereographic Projection
}
\description{
Map a two dimensional matrix with (longitude, latitude) dimensions on a polar stereographic projection.
}
\usage{
PlotStereoMap(var, lon, lat, latlims = c(60,90), toptitle = "", sizetit = 1, 
             units = "", brks = NULL, cols = NULL, filled.continents = FALSE, 
             dots = NULL, intlat = 10, drawleg = TRUE, subsampleg = 1, 
             colNA = "white", boxlist = NULL, boxcol = "black", boxlwd = 8,
             fileout = NULL, ...)
}
\arguments{
  \item{var}{
Matrix to plot with (longitude, latitude) dimensions.
  }
  \item{lon}{
Array of longitudes.
  }
  \item{lat}{
Array of latitudes.
  }
  \item{latlims}{
Latitudinal limits of the figure.\cr
Example : c(60, 90) for the North Pole\cr
          c(-90,-60) for the South Pole
  }
  \item{toptitle}{
Title, optional.
  }
  \item{sizetit}{
Multiplicative factor to increase title size, optional.
  }
  \item{units}{
Units, optional.
  }
  \item{brks}{
Colour levels, optional.
  }
  \item{cols}{
List of colours, optional.
  }
  \item{filled.continents}{
Continents filled in grey (TRUE) or represented by a black line (FALSE).\cr
Default = FALSE.
  }
  \item{dots}{
Matrix with TRUE / FALSE flags to add black dots over the maps (to show where a score is significant for example).  
  }
  \item{intlat}{
Interval between latitude circles. Default = 10deg.
  }
  \item{drawleg}{
Draw a colorbar. 
  }
  \item{subsampleg}{
Supsampling factor of the interval between ticks on colorbar.\cr
Default = 1 = every colour level.
  }
  \item{colNA}{
Color used to represent NA. Default = 'white'
  }
  \item{boxlist}{
The area(s) over which to draw a projected rectangle over the map, optional.
A list of vector of length 4 such as: c(western boundary eastern
boundary, southern boundary, northern boundary)
Example: boxlist=list(c(10,50,60,75),c(180,220,55,70))
  }
  \item{boxcol}{
Color or vector of colors of the rectangle(s). Default:'Black'
  }
  \item{boxlwd}{
Thickness of the rectangle side. Default: 8.
  }
  \item{fileout}{
Name of output file. Extensions allowed: eps/ps, jpeg, png, pdf, bmp 
and tiff. \cr
Default = NULL
  }
  \item{...}{
    Arguments to be passed to the method. Only accepts the following
    graphical parameters:

    adj ann ask bg bty cex.axis cex.lab cex.sub cin col.axis col.lab col.main col.sub cra crt csi cxy err family fg fig font font.axis font.lab font.main font.sub lend lheight ljoin lmitre lty mex mfcol mfrow mfg mkh oma omd omi page pin plt pty smo srt tck tcl usr xaxp xaxs xaxt xlog xpd yaxp yaxs yaxt ylbias ylog
    
    For more information about the parameters see `par`
  }
}
\examples{
data <- matrix(rnorm(100 * 50), 100, 50)
x <- seq(from = 0, to = 360, length.out = 100)
y <- seq(from = -90, to = 90, length.out = 50)
breaks <- seq(from = min(data, na.rm = TRUE), to = max(data, na.rm = TRUE), 
              length.out = 21)
colors <- colorRampPalette(c("blue", "lightblue", "white", "yellow", "red"))
colors <- colors(20)
PlotStereoMap(var = data, lon = x, lat = y, latlims = c(60, 90), brks = breaks,
              cols = colors, toptitle = "This is the title", sizetit = 0.8)
}
\author{
History:\cr
1.0  -  2014-07  (V. Guemas, \email{virginie.guemas at ic3.cat})  -  Original code
1.1  -  2015-12  (C. Ardilouze, \email{constantin.ardilouze at meteo.fr})  - Box(es) drawing
}
\keyword{dynamic}
