CMR <- data.frame(dates = format(seq(ISOdate(2003,1,1), by='month', length=36),
                          format='%d-%m-%Y'), var=rpois(36,10))
summary(CMR)
str(CMR)
with(CMR,CMR[order(as.Date(CMR$dates,format='%d-%m-%Y'),decreasing=TRUE),])
with(CMR,CMR[order(as.Date(CMR$dates,format='%d-%m-%Y'),decreasing=FALSE),])

(s,f,p)
Allaman
 

\begin{signature}
<<>>=
Prof. Dr. Ivan Bezerra Allaman
Universidade Estadual de Santa Cruz
Departamento de Ciências Exatas e Tecnológicas
Ilhéus/BA - Brasil
Fone: +55 73 3680-5596
E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com
@
\end{signature}