Nothing
context("General tests for low level functions")
dist <- dpois(1:10,4)/sum(dpois(1:10,4))
expect_equal(A_to_X_dist(X_to_A_dist(dist)), dist)
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.