Nothing
test_that("Goodness of fit test", {
x=c(12,9,10,7,12); prob=c(1/5,1/5,1/5,1/5,1/5)
expect_equal(gofchisq(x=x,p=prob),gofchisq(x,prob))
})
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.