typos

R/IDF.R

@@ -11,7 +11,7 @@
 #' the function \code{\link{gev.d.fit}}.
 #'
 #' @param data list of data.frames containing time series for every station. 
-#' The data.frame must have the columns 'date' and 'RR' unless onther names 
+#' The data.frame must have the columns 'date' and 'RR' unless other names 
 #' are specified in the parameter `names`. The column 'date' must contain strings with 
 #' standard date format.
 #' @param ds numeric vector of aggregation durations. 
@@ -24,8 +24,8 @@
 #' @param cl optional, number of cores to be used from \code{\link[pbapply]{pblapply}} for parallelization.
 #'
 #' @details If data contains stations with different time resolutions that need to be aggregated at
-#' different durations, IDF.agg needs to be run seperately for the different groups of stations. 
-#' Afterwards he results can be joint together using `rbind`.
+#' different durations, IDF.agg needs to be run separately for the different groups of stations. 
+#' Afterwards the results can be joint together using `rbind`.
 #'
 #' @return data.frame containing the annual intensity maxima [mm/h] in `$xdat`, the corresponding duration in `$ds` 
 #' and the station id or name in `$station`.
@@ -64,7 +64,7 @@ IDF.agg <- function(data,ds,na.accept = 0,
     dtime<-as.numeric((data.s[,names[1]][2]-data.s[,names[1]][1]),units="hours")
     
     if(any(ds %% dtime != 0)){
-      stop('Given aggragation durations are not multiples of the time resolution = '
+      stop('Given aggregation durations are not multiples of the time resolution = '
            ,dtime,' of station ',station,'.')}
     
     # function 1: aggregate over single durations and find annual maxima:

man/IDF.agg.Rd

@@ -4,12 +4,19 @@
 \alias{IDF.agg}
 \title{Aggregation and annual maxima for choosen durations}
 \usage{
-IDF.agg(data, ds, na.accept = 0, which.stations = NULL,
-  which.mon = 0:11, names = c("date", "RR"), cl = NULL)
+IDF.agg(
+  data,
+  ds,
+  na.accept = 0,
+  which.stations = NULL,
+  which.mon = 0:11,
+  names = c("date", "RR"),
+  cl = NULL
+)
 }
 \arguments{
 \item{data}{list of data.frames containing time series for every station. 
-The data.frame must have the columns 'date' and 'RR' unless onther names 
+The data.frame must have the columns 'date' and 'RR' unless other names 
 are specified in the parameter `names`. The column 'date' must contain strings with 
 standard date format.}
 
@@ -38,8 +45,8 @@ the function \code{\link{gev.d.fit}}.
 }
 \details{
 If data contains stations with different time resolutions that need to be aggregated at
-different durations, IDF.agg needs to be run seperately for the different groups of stations. 
-Afterwards he results can be joint together using `rbind`.
+different durations, IDF.agg needs to be run separately for the different groups of stations. 
+Afterwards the results can be joint together using `rbind`.
 }
 \examples{
 dates <- as.Date("2019-01-01")+0:729

man/IDF.plot.Rd

@@ -4,8 +4,15 @@
 \alias{IDF.plot}
 \title{Plotting of IDF curves at a chosen station}
 \usage{
-IDF.plot(durations, fitparams, probs = c(0.5, 0.9, 0.99), cols = 4:2,
-  add = FALSE, legend = TRUE, ...)
+IDF.plot(
+  durations,
+  fitparams,
+  probs = c(0.5, 0.9, 0.99),
+  cols = 4:2,
+  add = FALSE,
+  legend = TRUE,
+  ...
+)
 }
 \arguments{
 \item{durations}{vector of durations for which to calculate the quantiles.}