Nothing
# load the rddtools package
library(rddtools)
# load the example data set
data(house)
# create rdd_data sets
reg_nonpara <- rdd_reg_np(rdd_object=rdd_data(y=house$y, x=house$x, cutpoint=0) )
# store plot in object
sensiplot <- plotSensi(reg_nonpara)
test_that("rd: output values match", {
expect_equal( length(sensiplot), 6 )
})
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.