\HeaderA{meuse.riv}{River Meuse outline}{meuse.riv}
\keyword{datasets}{meuse.riv}
\begin{Description}\relax
The \code{meuse.riv} data consists of an outline of the Meuse
river in the area a few kilometers around the \LinkA{meuse}{meuse}
data set.
\end{Description}
\begin{Usage}
\begin{verbatim}data(meuse.riv)\end{verbatim}
\end{Usage}
\begin{Format}\relax
This data frame contains a 176 x 2 matrix with coordinates.
\end{Format}
\begin{Details}\relax
\code{x} and \code{y} are in RDM, the Dutch topographical map
coordinate system. See examples of \code{transform} in the
spproj package for projection parameters.
\end{Details}
\begin{References}\relax
See the \LinkA{meuse}{meuse} documentation
\end{References}
\begin{Examples}
\begin{ExampleCode}
data(meuse.riv)
plot(meuse.riv, type = "l", asp = 1)
data(meuse.grid)
coordinates(meuse.grid) = c("x", "y")
gridded(meuse.grid) = TRUE
image(meuse.grid, "dist", add = TRUE)
data(meuse)
coordinates(meuse) = c("x", "y")
meuse.sr = SpatialPolygons(list(Polygons(list(Polygon(meuse.riv)),"meuse.riv")))
spplot(meuse.grid, col.regions=bpy.colors(), main = "meuse.grid",
  sp.layout=list(
        list("sp.polygon", meuse.sr),
        list("sp.points", meuse, pch="+", col="black")
  )
)
spplot(meuse, "zinc", col.regions=bpy.colors(),  main = "zinc, ppm",
  cuts = c(100,200,400,700,1200,2000), key.space = "right",
  sp.layout= list("sp.polygon", meuse.sr, fill = "lightblue")
)
\end{ExampleCode}
\end{Examples}

