Nothing
context("KSW")
test_that("KS works for (1, 2, 3)", {
expect_equal(KS(1:3), 1)
})
test_that("KS works for (-1, 0, 1, 2, 3)", {
expect_equal(KS(-1:3), 0.4)
})
test_that("SGN works for (1, 2, 3)", {
expect_equal(SGN(1:3), sqrt(3)*1/2)
})
test_that("SGN works for (-1, 0, 1)", {
expect_equal(SGN(-1:1), sqrt(3)*-1/6)
})
test_that("WCX works for (1, 2, 3)", {
expect_equal(WCX(1:3), sqrt(3)*1/2)
})
test_that("WCX works for (-1, 0, 1)", {
expect_equal(WCX(-1:1), sqrt(3)*-1/6)
})
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.