Nothing
test_that("DyNAM default and tie init return the same result", {
expect_equal(
init_DyNAM_choice.tie(effectFUN_tie, m1, NULL, 5, 5),
init_DyNAM_choice.default(
effectFUN_tie,
network = m1, attribute = NULL, window = NULL,
n1 = 5, n2 = 5
)
)
expect_equal(
init_DyNAM_choice.tie(effectFUN_tie, m1, 1, 5, 5),
init_DyNAM_choice.default(
effectFUN_tie,
network = m1, attribute = NULL, window = 1, n1 = 5, n2 = 5
),
label = "when window is not NULL"
)
expect_equal(
init_DyNAM_choice.tie(effectFUN_tie_weighted, m1, NULL, 5, 5),
init_DyNAM_choice.default(
effectFUN_tie_weighted,
network = m1, attribute = NULL, window = NULL,
n1 = 5, n2 = 5
),
label = "when weighted is TRUE"
)
expect_equal(
init_DyNAM_choice.tie(effectFUN_tie_weighted, m1, 1, 5, 5),
init_DyNAM_choice.default(
effectFUN_tie_weighted,
network = m1, attribute = NULL, window = 1,
n1 = 5, n2 = 5
),
label = "when weighted is TRUE and window is not NULL"
)
expect_equal(
init_DyNAM_choice.tie(effectFUN_tie_weighted, m0, NULL, 5, 5),
init_DyNAM_choice.default(
effectFUN_tie_weighted,
network = m0, attribute = NULL, window = NULL,
n1 = 5, n2 = 5
),
label = "when weighted is TRUE and there are no ties in the network"
)
})
test_that("DyNAM default and indeg init return the same result", {
expect_equal(
init_DyNAM_choice.indeg(effectFUN_indeg, m1, NULL, 5, 5)$stat,
init_DyNAM_choice.default(effectFUN_indeg,
network = m1, attribute = NULL,
window = NULL, n1 = 5, n2 = 5
)$stat,
label = "stat is equal"
)
expect_equal(
init_DyNAM_choice.indeg(effectFUN_indeg, m1, NULL, 5, 5)$cache,
init_DyNAM_choice.default(effectFUN_indeg,
network = m1, attribute = NULL,
window = NULL, n1 = 5, n2 = 5
)$cache[, 1],
label = "cache is equal"
)
})
test_that("DyNAM default and trans init return the same result", {
expect_equal(
init_DyNAM_choice.trans(effectFUN_trans, m1, NULL, 5, 5),
init_DyNAM_choice.default(
effectFUN_trans,
network = m1, attribute = NULL, window = NULL,
n1 = 5, n2 = 5
)
)
})
test_that("DyNAM default and tertius-diff init return the same result", {
expect_equal(
init_DyNAM_choice.tertiusDiff(
effectFUN_tertius, m1, testAttr$fishingComplete[seq.int(5)],
NULL, 5, 5
)$stat,
init_DyNAM_choice.default(effectFUN_tertius,
network = m1, attribute = testAttr$fishingComplete[seq.int(5)],
window = NULL, n1 = 5, n2 = 5
)$stat,
label = "stat is equal"
)
expect_equal(
init_DyNAM_choice.tertiusDiff(
effectFUN_tertius, m1, testAttr$fishingComplete[seq.int(5)],
NULL, 5, 5
)$cache,
init_DyNAM_choice.default(effectFUN_tertius,
network = m1, attribute = testAttr$fishingComplete[seq.int(5)],
window = NULL, n1 = 5, n2 = 5
)$cache[, 1],
label = "cache is equal"
)
})
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.