From da4af5bd5955f34fb2ea2f5ce89dd0bf869ba784 Mon Sep 17 00:00:00 2001 From: AnanyaHN27 Date: Sat, 18 Jan 2025 05:31:29 -0500 Subject: [PATCH] Adding labels to ts --- src/library/stats/R/ts.R | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/library/stats/R/ts.R b/src/library/stats/R/ts.R index f93f9cf7f..dd231b1ac 100644 --- a/src/library/stats/R/ts.R +++ b/src/library/stats/R/ts.R @@ -406,6 +406,16 @@ print.ts <- function(x, calendar, ...) if(fr.x == 12) month.abb else if(fr.x == 4) { c("Qtr1", "Qtr2", "Qtr3", "Qtr4") + } + else if(fr.x == 3) { + c("Trim1", "Trim2", "Trim3") + } + else if (fr.x == 6) { + c("Jan-Feb", "March-April", "May-June", "July-August", + "September-October", "November-December") + } + else if(fr.x == 2) { + c("Jan-June", "July-December") } else paste0("p", 1L:fr.x) if(NROW(x) <= fr.x && start(x)[1L] == end(x)[1L]) { ## not more than one period