1 Data Entry

2 Table

2.1 Positive 20D Return

Tabel yang menampilkan saham dengan Positive 20D Return

2.2 Above MA200

Tabel yang menampilkan saham di atas MA200

2.3 Outperform Trend Signal

Tabel yang menampilkan Saham dalam Outperform Trend

2.4 Outperform Quandrant

Tabel yang menampilkan Saham di dalam Outperform Quandrant

2.5 AlertBuyNow

Tabel yang menampilkan Saham yang mendapat sinyal AlertBuyNow

2.6 AlertBuyNow and Uptrend

Tabel yang menampilkan Saham yang mendapat sinyal AlertBuyNow dan dalam Uptrend

2.7 Weekly Net Foreign Buy

Tabel yang menampilkan Saham dengan Net Buy Foreign Positive 5D

2.8 Rally with Trading Value

Tabel yang menampilkan Saham yang Rally (harganya naik dan diikuti kenaikan Trading Value)

2.9 High Turnover+Buy

Tabel yang menampilkan Saham dengan Turnover Tinggi dengan sinyal AlertBuyNow

2.10 Undershoot

Tabel yang menampilkan Saham yang Undershoot (dibawah Below Bollinger Band)

2.11 Fake Fall

Tabel yang menampilkan Saham yang harganya turun dan diikuti penurunan Trading Value

2.12 Squat Bars

Tabel yang menampilkan Squat Bar (kenaikan harga tidak setinggi kenaikan Trading Value)

3 Graphic

3.1 Stocks with Positive 20D Return

Grafik yang menampilkan Saham dan Trend-nya yang mencatat Positive 20D Return

3.2 Stocks with Positive 20D Return - Relation

Grafik yang menampilkan Saham dan Relation-nya yang mencatat Positive 20D Return

3.3 Stocks with Positive 1D, 5D and 20D Return

Grafik yang menampilkan Saham dan Relation-nya yang mencatat Positive 20D, 5D dan 1D Return

3.4 Stocks with Net Buy Asing 20D and 5D

Grafik yang menampilkan Saham dan Trend-nya yang mencatat Net Buy Asing 20D dan 5D

3.5 Sector in Trend and Momentum

Grafik yang menampilkan Sektor dan Relasinya-nya dengan Trend dan Stoch. Oscillator

## `summarise()` regrouping output by 'Sector' (override with `.groups` argument)

3.6 Sector in 1D, 5D and 20D % Change

Grafik yang menampilkan Sektor dan Relasinya-nya dengan Rata - Rata Pergerakannya dalam 1D, 5D dan 20D

## `summarise()` regrouping output by 'Sector' (override with `.groups` argument)

3.7 Dandy Rotation with Buy Signal

Grafik Dandy Rotation yang menampilkan Saham dan Trend-nya dengan sinyal AlertBuyNow

4 Cluster

4.1 1D, 5D, 20D & YTD Return

multi.return <- PTA %>% 
  select(Ticker, X1DCh, X5DCh, X20DCh, YTD..Ch.New)

colnames(multi.return) <- c("Ticker", "D1Ch", "D5Ch", "D20Ch", "YTDCh")

multi.return <- as.data.frame(multi.return)
multi.return$D1Ch <- as.numeric(multi.return$D1Ch)
multi.return$D5Ch <- as.numeric(multi.return$D5Ch)
multi.return$D20Ch <- as.numeric(multi.return$D20Ch)
multi.return$YTDCh <- as.numeric(multi.return$YTDCh)

rownames(multi.return) <- multi.return$Ticker
multi.return.norow <- multi.return[,-1]

multi.return.norow.km <- kmeans(multi.return.norow, 4)
multi.return$cluster <- multi.return.norow.km$cluster
multi.return$cluster <- as.factor(multi.return$cluster)

datatable(multi.return,
          class = 'cell-border hover',
          filter = 'top', rownames = FALSE, options = list(
            pageLength = 10, autoWidth = TRUE),
          caption = htmltools::tags$caption(
    style = 'caption-side: top; text-align: middle;',
    'Multiple Return - Cluster :', htmltools::em(selected.date)))

4.2 Daily and Weekly Stoch. Osc

cluster.stoch <- PTA %>% 
  select(Ticker, SO, 'Wk.ESO.Value')

colnames(cluster.stoch)[3] <- "WkSO"

cluster.stoch <- as.data.frame(cluster.stoch)
cluster.stoch$SO <- as.numeric(cluster.stoch$SO)
cluster.stoch$WkSO <- as.numeric(cluster.stoch$WkSO)

rownames(cluster.stoch) <- cluster.stoch$Ticker
cluster.stoch.norow <- cluster.stoch[,-1]

cluster.stoch.norow.km <- kmeans(cluster.stoch.norow, 4)
cluster.stoch$Cluster <- cluster.stoch.norow.km$cluster
cluster.stoch$Cluster <- as.factor(cluster.stoch$Cluster)

datatable(cluster.stoch,
          class = 'cell-border hover',
          filter = 'top', rownames = FALSE, options = list(
            pageLength = 10, autoWidth = TRUE),
          caption = htmltools::tags$caption(
    style = 'caption-side: top; text-align: middle;',
    'Daily and Weekly Stoch. Osc - Cluster :', htmltools::em(selected.date)))