Nothing
context("calcKDA")
test_that("calcKDA use", {
sad <- 1:20
kda_1 <- GUILDS::calcKDA(sad)
for (i in 1:20) {
testthat::expect_equal(kda_1[i], 10361.632918)
}
testthat::expect_equal(kda_1[21], 0)
kda_2 <- calcKDA(c(sad, 1000))
kda_3 <- calcKDA(c(sad, 10000))
kda_4 <- calcKDA(c(sad, 25000))
})
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.