Nothing
# library(matchMulti)
# library( testthat )
context("calculating pvalues")
data(minischool)
p.tt <- matchMulti:::ttest.balance( "ses", treatment = "sector", orig.data = minischool )
# Handle clustering
p.CRVE <- matchMulti:::CRVE.balance( "ses", treatment = "sector", school.id = "school", data = minischool )
p.agg <- matchMulti:::agg.balance( "ses", treatment = "sector", school.id = "school", data = minischool )
expect_true( p.CRVE > p.tt )
expect_true( p.agg > p.tt )
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.