Table dan Grafik ini menggolongkan saham pada return 1, 5, 20 hari dan YTD (dari sejak awal tahun 2020).
stock <- "TLKM"
stocks <- c("TLKM", "ISAT", "EXCL")
TPT.IDX %>%
filter(Ticker %in% stocks) %>%
arrange(DateTime) %>%
filter_by_time(.start_date = "2022-10-03") %>%
group_by(Ticker) %>%
plot_time_series(DateTime, Close, Ticker, .smooth = F)
## .date_var is missing. Using: DateTime
TPT.IDX %>%
# filter(Ticker == "TLKM") %>%
filter(Ticker %in% stock) %>%
arrange(DateTime) %>%
plot_seasonal_diagnostics(DateTime, Ch1D)
TPT.IDX %>%
# filter(Ticker == "TLKM") %>%
filter(Ticker %in% stock) %>%
arrange(DateTime) %>%
plot_stl_diagnostics(DateTime, Ch1D, .feature_set = c("observed", "trend", "season", "remainder"))
## frequency = 5 observations per 1 week
## trend = 65 observations per 3 months