stufield/sinister.R

Created August 21, 2019 19:38

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/stufield/a43cadc6a026de51c8c930ee65bd2c53.js"></script>

Download ZIP

Revisions

stufield created this gist Aug 21, 2019.

sinister.R

-Original file line number
+Diff line change
@@ -0,0 +1,6 @@
+    `-` <- function(x, y) {
+      if (runif(1) < 0.01)
+        base::`-`(x, y) + 1
+      else
+        base::`-`(x, y)
+    }