Nothing
test_that("`funnel_plot()` works with input and returns expected list", {
a<-funnel_plot(c(100, 150,180,80,120, 225), c(108, 112, 165,95,100, 220),
factor(c("a","b","c", "d","e","f"))
)
expect_type(a, "list")
expect_type(a[[1]], "list")
expect_s3_class(a[[2]], "data.frame")
expect_s3_class(a[[3]], "data.frame")
expect_length(a[[3]]$group,6)
expect_length(a[[3]],22)
b<-funnel_plot(numerator=c(100, 150,180,80,120, 225), denominator=c(108, 112, 165,95,100, 220),
group=factor(c("a","b","c", "d","e","f")), draw_adjusted = FALSE,
title="My test Funnel Plot", multiplier = 100, x_label = "Expected Values",
y_label = "Standardised Ratio Test", label = "outlier", limit=95)
expect_type(b, "list")
expect_type(b[[1]], "list")
expect_s3_class(b[[2]], "data.frame")
expect_s3_class(b[[3]], "data.frame")
expect_length(b[[3]]$group,6)
expect_length(b[[3]],22)
expect_gt(b[[3]]$LCL95[5], a[[3]]$OD95LCL[5])
c<-funnel_plot(numerator=c(100, 150,180,80,120, 225), denominator=c(108, 112, 165,95,100, 220),
group=factor(c("a","b","c", "d","e","f")), draw_adjusted = TRUE, sr_method="CQC", trim_by = 0.05,
title="My test Funnel Plot", multiplier = 100, x_label = "Expected Values",
y_label = "Standardised Ratio Test", label = "highlight", limit=95, highlight="a")
expect_type(c, "list")
expect_type(c[[1]], "list")
expect_s3_class(c[[2]], "data.frame")
expect_s3_class(c[[3]], "data.frame")
expect_length(c[[3]]$group,6)
expect_length(c[[3]],20)
expect_lt(b[[3]]$OD95LCL[5], c[[3]]$OD95LCL[5])
expect_equal(source_data(c)$highlight[1],"1")
d<-funnel_plot(numerator=c(100, 150,180,80,120, 225), denominator=c(108, 112, 165,95,100, 220),
group=factor(c("a","b","c", "d","e","f")), draw_adjusted = FALSE, sr_method="CQC", trim_by = 0.05,
title="My test Funnel Plot", multiplier = 100, x_label = "Expected Values",
y_label = "Standardised Ratio Test", label = "both", limit=95, x_range=c(5,250)
, y_range=c(0, 200), highlight="a")
expect_type(d, "list")
expect_type(d[[1]], "list")
expect_s3_class(d[[2]], "data.frame")
expect_s3_class(d[[3]], "data.frame")
expect_length(d[[3]]$group,6)
expect_length(d[[3]],20)
})
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.