# 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) ) reg_para <- rdd_reg_lm(rdd_object=rdd_data(y=house$y, x=house$x, cutpoint=0) ) # store plot in object placeboplot <- plotPlacebo(reg_nonpara, device="ggplot") placeboplot_lm <- plotPlacebo(reg_para, device="ggplot") test_that("rd: output values match", { expect_equal( length(placeboplot), 8 ) expect_equal( placeboplot$cutpoint[9], 0.563925 ) }) test_that("output=ggplot works", { expect_s3_class(plotPlacebo(reg_nonpara, output = "ggplot"), class = "ggplot") expect_s3_class(plotPlacebo(reg_para, output = "ggplot"), class = "ggplot") })