diff --git a/R/SeriesAggreg.data.frame.R b/R/SeriesAggreg.data.frame.R index 5a467039d1d6d2ee4da3dd99be7b6a8e5d236757..ea986a08baaa0acca937c9b5abaf57e8434ab91f 100644 --- a/R/SeriesAggreg.data.frame.R +++ b/R/SeriesAggreg.data.frame.R @@ -184,6 +184,8 @@ SeriesAggreg.data.frame <- function(x, all.y = FALSE) tsAggreg <- tsAggreg[tsAggreg$Selec & tsAggreg$DatesRini, ] tsAggreg <- tsAggreg[, colnames(TabSeries0)] + tsAggreg <- tsAggreg[order(tsAggreg$DatesR), ] # reorder by date especially for regime time series + colnames(tsAggreg)[1L] <- colnames(x)[1L] # keep original column names return(tsAggreg) }