\Header{euro}{Conversion Rates of Euro Currencies}
\methalias{euro.cross}{euro}
\keyword{datasets}{euro}
\begin{Description}\relax
Conversion rates between the various Euro currencies.
\end{Description}
\begin{Usage}
\begin{verbatim}data(euro)\end{verbatim}
\end{Usage}
\begin{Format}\relax
\code{euro} is a named vector of length 11, \code{euro.cross} a named
matrix of size 11 by 11.
\end{Format}
\begin{Details}\relax
The data set \code{euro} contains the value of 1 Euro in all
currencies participating in the European monetary union (Austrian
Schilling ATS, Belgian Franc BEF, German Mark DEM, Spanish Peseta ESP,
Finnish Markka FIM, French Franc FRF, Irish Punt IEP, Italian Lira
ITL, Luxembourg Franc LUF, Dutch Guilder NLG and Portugese Escudo
PTE).  These conversion rates were fixed by the European Union on
December 31, 1998.  To convert old prices to Euro prices, divide by
the respective rate and round to 2 digits.

The data set \code{euro.cross} contains conversion rates between the
various Euro currencies, i.e., the result of
\code{outer(1 / euro, euro)}.
\end{Details}
\begin{Examples}
\begin{ExampleCode}
data(euro)
cbind(euro)

## These relations hold:
euro == signif(euro,6) # [6 digit precision in Euro's definition]
all(euro.cross == outer(1/euro, euro))

## Convert 20 Euro to Belgian Franc
20 * euro["BEF"]
## Convert 20 Austrian Schilling to Euro
20 / euro["ATS"]
## Convert 20 Spanish Pesetas to Italian Lira
20 * euro.cross["ESP", "ITL"]

require(graphics)
dotchart(euro,
         main = "euro data: 1 Euro in currency unit")
dotchart(1/euro,
         main = "euro data: 1 currency unit in Euros")
dotchart(log(euro, 10),
         main = "euro data: log10(1 Euro in currency unit)")
\end{ExampleCode}
\end{Examples}

