Nothing
library(tinytest)
x <- c(.00005, .00009, .0001, .0004, .0005, .0006, .001, .0011, .01, .05)
expect_equal(manymome.table:::format_p(x),
c("<.001", "<.001", "<.001", "<.001", "<.001",
"<.001", ".001", ".001", ".010", ".050"))
expect_equal(manymome.table:::format_p(x, .01),
c("<.010", "<.010", "<.010", "<.010", "<.010",
"<.010", "<.010", "<.010", ".010", ".050"))
expect_equal(manymome.table:::format_p(x, .0006),
c("<.0006", "<.0006", "<.0006", "<.0006", "<.0006",
".0006", ".0010", ".0011", ".0100", ".0500"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.