plot.SimGR.R 247 Bytes
Newer Older
1
plot.SimGR <- function(x, ...) {
2

3
  if (!inherits(x, "SimGR")) {
unknown's avatar
unknown committed
4
5
    stop("Non convenient data for x argument. Must be of class \"SimGR\"")
  }
6

7
8
  opar <- par(no.readonly = TRUE)
  on.exit(par(opar))
9

10
  plot(x$OutputsModel, Qobs = x$Qobs, ...)
11
12

}