P value stars

hadley · Apr 28, 2017 · 4be1aa3 · 4be1aa3
1 parent d0f71f6
commit 4be1aa3
Show file tree

Hide file tree

Showing 3 changed files with 49 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -3,3 +3,4 @@
 S3method(print,emoji)
 export(ji)
 export(ji_find)
+export(ji_p)
diff --git a/R/ji_p.R b/R/ji_p.R
@@ -0,0 +1,25 @@
+#' Summarise your p-values with emoji
+#'
+#' @param x A vector of p-values.
+#' @export
+#' @examples
+#' emo::ji_p(1)
+#' emo::ji_p(0.1)
+#' emo::ji_p(0.05)
+#' emo::ji_p(0.01)
+#' emo::ji_p(1e-6)
+#'
+#' emo::ji_p(rbeta(50, 2, 5))
+ji_p <- function(x) {
+  stopifnot(is.numeric(x))
+
+  out <- stats::symnum(x,
+    corr = FALSE,
+    na = FALSE,
+    cutpoints = c(0, 1e-5, 0.001, 0.01, 0.05, 0.1, 1),
+    symbols = c(ji("laughing"), ji("joy"), ji("grin"), ji("smile"), ji("thinking"), ji("poop"))
+  )
+
+  structure(out, class = c("emoji", class(out)))
+
+}
diff --git a/man/ji_p.Rd b/man/ji_p.Rd