R/previMFR-methods.R

Defines functions plot.PreviMFR.Tempe print.PreviMFR.Tempe

Documented in plot.PreviMFR.Tempe print.PreviMFR.Tempe

##' Methodes pour la classe \sQuote{PreviMFR.Tempe}
##'
##' Méthodes génériques disponibles pour la classe d'objet 
##' \sQuote{\code{PreviMFR.Tempe}} (voir \link{getPreviMFR.Tempe})
##' @param x objet de classe \sQuote{PreviMFR.Tempe}
##' @param digits nombre de chiffre significatifs pour l'affichage des 
##' résultats
##' @param print.gap espace libre entre deux colonne de tableau lors de 
##' l'affichage des résultats
##' @param ... paramètres supplémentaires
##' @author Thomas Esclaffer \email{[email protected]@edf.fr}
##' @method print PreviMFR.Tempe
##' @rdname PreviMFR.Tempe-methods
print.PreviMFR.Tempe <- function(x, digits=2, print.gap=2, ...) 
{
  cat("\nPrevision MeteoFrance\n--")
  cat("\nLocalité     : ", x$loc, " (",x$code,")", sep="")  
  cat("\nTempératures :\n")
  rownames(x$tab) <-NULL
  rownames(x$tab) <- format(x$tab$date,"%a %d %b")
  names(x$tab) <- c("Date","Tn","Tx", "TJ.moy")
  print(x$tab[,-1], print.gap, nsmall=1, digits=3)
  cat("\n")  
}

##' @method plot PreviMFR.Tempe
##' @rdname PreviMFR.Tempe-methods
plot.PreviMFR.Tempe <- function(x, ...) 
  {
  opar <- par(no.readonly=TRUE)
  par(mar=c(3,3,2,1), mgp=c(1.7,0.5,0))
      
  t.rng <- range(x$tab[,-1])
  plot(range(x$tab$date), t.rng, type="n",
       xlab="Date", ylab="Température (deg.C)", 
       main=paste(x$loc," [",x$code,"]",sep=""), 
       panel.first=grid(), ...)
   
  points(x$tab$date, x$tab$tn, type="l", pch=3, col="blue",
         lty="dotted", lwd=1,  cex=0.5)
  points(x$tab$date, x$tab$tx, type="l", pch=3, col="red",
         lty="dotted", lwd=1,  cex=0.5)
  points(x$tab$date, x$tab$tj, type="o", pch=19, col="black",lwd=2,  cex=0.8)
  
  par(opar)
}
coolTot/DtgRecup documentation built on May 12, 2017, 9:45 a.m.