set.seed(1234)
emoji_p(1)
emoji_p(0.1)
emoji_p(0.05)
emoji_p(0.01)
emoji_p(1e-6)
emoji_p(0.01, legend = TRUE)
emoji_p(rbeta(50, 2, 5))
emoji_p(
runif(100, 0, 0.1),
names = c("flexed biceps", "hundred points", "thumbs down", "thumbs up"),
cutpoints = c(0.001, 0.01, 0.05)
)
Run the code above in your browser using DataLab