changed error message (regarding time resolution in IDF.agg)

R/IDF.R

@@ -63,7 +63,7 @@
         dtime<-as.numeric((data.s[,names[1]][2]-data.s[,names[1]][1]),units="hours")
         
         if(any(ds %% dtime > 10e-16)){
-          stop('Given aggregation durations are not multiples of the time resolution = '
+          stop('At least one of the given aggregation durations is not multiple of the time resolution = '
                ,dtime,' of station ',station,'.')}
         
         # function 1: aggregate over single durations and find annual maxima: