Nothing
test_that("OVL.LogitK() returns a list", {
output_list <- OVL.LogitK(x=test_data$controls,y=test_data$cases)
expect_type(output_list, "list")
})
test_that("OVL.LogitK() returns a valid result", {
output_list <- OVL.LogitK(x=test_data$controls,y=test_data$cases)
expect_true( output_list[[1]]>= 0.3 & output_list[[2]] <= 1)
})
test_that("OVL.LogitK() returns a valid result", {
set.seed(1)
output_list <- OVL.LogitK(x=rnorm(50,0,1),y=rnorm(50,0.5,0.5),k=2)
expect_true( output_list[[1]]>= 0.3 & output_list[[2]] <= 1)
})
test_that("OVL.LogitK() returns a list", {
set.seed(1)
output_list <- OVL.LogitK(x=rnorm(50,80,10),y=rnorm(50,0,11))
expect_type(output_list, "list")
})
test_that("OVL.LogitK() returns a list", {
set.seed(1)
output_list <- OVL.LogitK(x=rnorm(50,80,10),y=rnorm(50,80.2,11))
expect_type(output_list, "list")
})
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.