\encoding{UTF-8}
\name{plot.CalGR}
\alias{plot.CalGR}
\title{Time series plotting GR objects}


\usage{
\method{plot}{CalGR}(x, which = c("perf", "hist", "time"), ...)
}


\arguments{
  \item{x}{[object of class \emph{CalGR}] see \code{\link{CalGR}} for details}
  
  \item{which}{[character] XXXX \code{"perf"}, \code{"hist"}, \code{"time"}}, 
  
  \item{...}{other parameters to be passed through to plotting functions}
}


\description{Time series plotting GR objects}


\seealso{
\code{\link{CalGR}}
}


\author{Olivier Delaigue}


\examples{
library(airGR)

## data.frame of observed data
data(L0123001)
BasinObs2 <- BasinObs[, c("DatesR", "P", "E", "Qmm", "T")]

## Preparation of observed data for modelling
w1 <- ObsGR(ObsBV = BasinObs2, TypeModel = "GR5J", CemaNeige = TRUE)

## Calibration step
w2 <- CalGR(ObsGR = w1, CalCrit = c("NSE", "KGE", "KGE2", "RMSE"),
            WupPer = NULL, CalPer = c("1990-01-01", "1993-12-31"))
plot(w2, "perf")
plot(w2, "time")
plot(w2, "hist")
}