fix bugs

[talweg.git] / pkg / R / getData.R

diff --git a/pkg/R/getData.R b/pkg/R/getData.R
index d0e69d7..8e44a52 100644 (file)
--- a/pkg/R/getData.R
+++ b/pkg/R/getData.R
@@ -68,7 +68,7 @@ getData = function(ts_data, exo_data, date_format="%d/%m/%Y %H:%M", limit=Inf)
                        {
                                time = c(time, ts_df[line,1])
                                serie = c(serie, ts_df[line,2])
-                               level_hat = c(level_hat, #in case of data file is incomplete...
+                               level_hat = c(level_hat, #if data file is incomplete...
                                        ifelse(ncol(ts_df) > 2, ts_df[line,3], mean(serie,na.rm=TRUE)))
                                line = line + 1
                        };