Nothing
context("Check input of RsquaredSE function")
test_that("RsquaredSE throws errors when incorrect input is provided", {
expect_error(RsquaredSE(MSE = 3, margVar = 4, SEMSE = 0.4, n = 0, corMSEMST = 0.75))
expect_error(RsquaredSE(MSE = -3, margVar = 4, SEMSE = 0.4, n = 50, corMSEMST = 0.75))
expect_error(RsquaredSE(MSE = 3, margVar = -4, SEMSE = 0.4, n = 50, corMSEMST = 0.75))
expect_error(RsquaredSE(MSE = 3, margVar = 4, SEMSE = -0.4, n = 50, corMSEMST = 0.75))
expect_error(RsquaredSE(MSE = 3, margVar = 4, SEMSE = 0.4, n = 50, corMSEMST = 2))
})
test_that("RsquaredSE works as expected with correct input", {
expect_length(RsquaredSE(MSE = 3, margVar = 4, SEMSE = 0.4, n = 50, corMSEMST = 0.75), 2)
})
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.