Add files via upload

2020-07-16 19:18:28 +05:30
parent 7a6754d233
commit 7bab1ebeac
2 changed files with 106 additions and 0 deletions
--- a/decile.R
+++ b/decile.R
@@ -0,0 +1,27 @@
+
+# Required libraries ------------------------------------------------------
+
+library(data.table)
+
+# Add deciles -------------------------------------------------------------
+
+decile_dt <-  function(x, decreasing = TRUE) {
+  
+  # browser()
+  
+  NA_positions = (is.na(x) | (x == 0))
+  
+  x = as.data.table(x = x)
+  
+  x[is.na(x), x := 0][
+    , num := .I][
+      order(-x)][
+        , cumsums := cumsum(x)][
+          , tot := cumsums/max(cumsums)][
+            , dec := (if(decreasing) 11 - ceiling(tot * 10)
+                      else ceiling(tot * 10))][
+                        order(num)][
+                          , dec := fifelse(NA_positions, NA_real_, dec)][
+                            , dec]
+  
+}