Image credit: picxbay



devtools::install_github("pridiltal/outstable")




tsibble package and produces an outstable, a tsibble with flagged anomalies and their degree of outlierness.tsibble package and produces an outstable, a tsibble with flagged anomalies and their degree of outlierness.tidyverts toolbox.tsibble package and produces an outstable, a tsibble with flagged anomalies and their degree of outlierness.tidyverts toolbox.tsibble package and produces an outstable, a tsibble with flagged anomalies and their degree of outlierness.tidyverts toolbox.tsibble package and produces an outstable, a tsibble with flagged anomalies and their degree of outlierness.tidyverts toolbox.tsibble package and produces an outstable, a tsibble with flagged anomalies and their degree of outlierness.tidyverts toolbox.








Ψ[f2(x)]={(−2ln(f(x))−2ln(2π))1/2,f(x)<(2π)−10,f(x)≥(2π)−1.
Ψ[f2(x)]={(−2ln(f(x))−2ln(2π))1/2,f(x)<(2π)−10,f(x)≥(2π)−1.
Ψ[f2(x)]={(−2ln(f(x))−2ln(2π))1/2,f(x)<(2π)−10,f(x)≥(2π)−1.
Ψ[f2(x)]={(−2ln(f(x))−2ln(2π))1/2,f(x)<(2π)−10,f(x)≥(2π)−1.
Ψ[f2(x)]={(−2ln(f(x))−2ln(2π))1/2,f(x)<(2π)−10,f(x)≥(2π)−1.
outstable:detect_outliers# devtools::install_github(pridiltal/outstable)library(outstable)
outstable:detect_outliers# devtools::install_github(pridiltal/outstable)library(outstable) data %>% tsibble::as_tsibble(index = time)
## # A tsibble: 13,124 x 2 [1h] <UTC>## time value## <dttm> <dbl>## 1 2006-12-31 19:00:00 20601## 2 2006-12-31 20:00:00 20377## 3 2006-12-31 21:00:00 20745## 4 2006-12-31 22:00:00 21648## 5 2006-12-31 23:00:00 23220## 6 2007-01-01 00:00:00 22846## 7 2007-01-01 01:00:00 21856## 8 2007-01-01 02:00:00 20912## 9 2007-01-01 03:00:00 20005## 10 2007-01-01 04:00:00 18592## # … with 13,114 more rowsoutstable:detect_outliers# devtools::install_github(pridiltal/outstable)library(outstable) data %>% tsibble::as_tsibble(index = time) %>% outstable::detect_outliers( variable = "value", cmbn_model = c("lm", "theta","fasster"), p_rate = 0.01)
## # A tsibble: 13,124 x 4 [1h] <UTC>## time value .outscore .outtype## <dttm> <dbl> <dbl> <fct> ## 1 2006-12-31 19:00:00 20601 0.146 typical ## 2 2006-12-31 20:00:00 20377 0.0727 typical ## 3 2006-12-31 21:00:00 20745 0.175 typical ## 4 2006-12-31 22:00:00 21648 0.276 typical ## 5 2006-12-31 23:00:00 23220 0.482 typical ## 6 2007-01-01 00:00:00 22846 0.332 typical ## 7 2007-01-01 01:00:00 21856 0.286 typical ## 8 2007-01-01 02:00:00 20912 0.307 typical ## 9 2007-01-01 03:00:00 20005 0.333 typical ## 10 2007-01-01 04:00:00 18592 0.228 typical ## # … with 13,114 more rowsoutstable::cleanse_data()# devtools::install_github(pridiltal/outstable)library(outstable) data %>% tsibble::as_tsibble(index = time) %>% outstable::detect_outliers( variable = "value", cmbn_model = c("lm", "theta","fasster"), p_rate = 0.01) %>% outstable::cleanse_data( variable = "value", impute = "linear")
## # A tsibble: 13,124 x 5 [1h] <UTC>## time value .outscore .outtype .altered## <dttm> <dbl> <dbl> <fct> <dbl>## 1 2006-12-31 19:00:00 20601 0.146 typical 20601## 2 2006-12-31 20:00:00 20377 0.0727 typical 20377## 3 2006-12-31 21:00:00 20745 0.175 typical 20745## 4 2006-12-31 22:00:00 21648 0.276 typical 21648## 5 2006-12-31 23:00:00 23220 0.482 typical 23220## 6 2007-01-01 00:00:00 22846 0.332 typical 22846## 7 2007-01-01 01:00:00 21856 0.286 typical 21856## 8 2007-01-01 02:00:00 20912 0.307 typical 20912## 9 2007-01-01 03:00:00 20005 0.333 typical 20005## 10 2007-01-01 04:00:00 18592 0.228 typical 18592## # … with 13,114 more rows# devtools::install_github(pridiltal/outstable)library(outstable) data %>% tsibble::as_tsibble(index = time) %>% outstable::detect_outliers( variable = "value", cmbn_model = c("lm", "theta","fasster"), p_rate = 0.01) %>% outstable::cleanse_data( variable = "value", impute = "linear") %>% fabletools::autoplot(.altered)

# devtools::install_github(pridiltal/outstable)library(outstable) data %>% tsibble::as_tsibble(index = time) %>% outstable::detect_outliers( variable = "value", cmbn_model = c("lm", "theta","fasster"), p_rate = 0.01) %>% outstable::cleanse_data( variable = "value", impute = "linear") %>% fabletools::autoplot(.altered)





devtools::install_github("pridiltal/outstable")
Slides available at: prital.netlify.app
priyangad@uom.lk
pridiltal
@pridiltal
Slides created via the R package xaringan

Image credit: picxbay
Keyboard shortcuts
| ↑, ←, Pg Up, k | Go to previous slide |
| ↓, →, Pg Dn, Space, j | Go to next slide |
| Home | Go to first slide |
| End | Go to last slide |
| Number + Return | Go to specific slide |
| b / m / f | Toggle blackout / mirrored / fullscreen mode |
| c | Clone slideshow |
| p | Toggle presenter mode |
| t | Restart the presentation timer |
| ?, h | Toggle this help |
| Esc | Back to slideshow |