R/validate.R

In metno/esd.test: Climate analysis and empirical-statistical downscaling (ESD) package for monthly and daily data.

validate <- function(x, ...)  UseMethod("validate")

validate.default <- function(x, ...) {
}

validate.eof <- function(x, ...) {
}

validate.eof.field <- function(x, ...) {
}


validate.eof.comb <- function(x, ...) {
  plot(x)
  zz <- attr(x,'appendix.1')
  
  dev.new()
  plot(attr(x,'clim'),type="l",main="Mean values")
  lines(attr(zz,'clim'),col="red")
}

  


validate.ds <- function(x, ...) {
}



test.EOF <- function() {
  
}