Commit e5da7ff1 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

fix: reorder SeriesAggreg.data.frame by date (especially for regime time series)

Refs #133
parent 4ee024ad
Pipeline #24995 passed with stage
in 8 minutes and 6 seconds
......@@ -184,7 +184,8 @@ SeriesAggreg.data.frame <- function(x,
all.y = FALSE)
tsAggreg <- tsAggreg[tsAggreg$Selec & tsAggreg$DatesRini, ]
tsAggreg <- tsAggreg[, colnames(TabSeries0)]
colnames(tsAggreg)[1L] <- colnames(x)[1L]
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)
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment