axis in IDF.plot

R/IDF.R

@@ -122,7 +122,7 @@ IDF.agg <- function(data,ds,na.accept = 0,
 #' data('example',package = 'IDF')
 #' fit <- gev.d.fit(example$dat,example$d,ydat = as.matrix(example[,c("cov1","cov2")])
 #'                  ,mul = c(1,2),sigl = 1)
-#' par <- gev.d.params(fit = fit,cov.list = list(1,1))
+#' par <- gev.d.params(fit = fit, ydat = cbind(1,1))
 #' IDF.plot(data = example[example$cov1==1,c("dat","d")],fitparams = unlist(par),
 #'          calc.dur = 2^(0:5),ylim=c(1,75),st.name = 'Example')
 IDF.plot <- function(data,fitparams,probs=c(0.5,0.9,0.99),calc.dur=NULL,
@@ -147,7 +147,7 @@ IDF.plot <- function(data,fitparams,probs=c(0.5,0.9,0.99),calc.dur=NULL,
     # empty plot
     plot(NA,axes=F,xlim=xlim,ylim=ylim,xlab="Duration [h]",ylab="Intensity [mm/h]",log="xy",...)
     box('plot')
-    axis(1,at=calc.dur,labels=calc.dur)
+    axis(1,at=data[,2],labels=round(data[,2],digits = 2))
     axis(2)
 
     # check if `pch` was passed in ...

man/IDF.plot.Rd

@@ -42,7 +42,7 @@ Plotting of IDF curves at a chosen station
 data('example',package = 'IDF')
 fit <- gev.d.fit(example$dat,example$d,ydat = as.matrix(example[,c("cov1","cov2")])
                  ,mul = c(1,2),sigl = 1)
-par <- gev.d.params(fit = fit,cov.list = list(1,1))
+par <- gev.d.params(fit = fit, ydat = cbind(1,1))
 IDF.plot(data = example[example$cov1==1,c("dat","d")],fitparams = unlist(par),
          calc.dur = 2^(0:5),ylim=c(1,75),st.name = 'Example')
 }