Nothing
library(SEMID)
context("Testing that latent-factor half-trek criterion function for generic identifiability works properly.")
source("graphExamples.R")
test_that("lfhtcID returns correct value for known examples.", {
for (i in 1:length(digraphExamples)) {
res = lfhtcID(digraphExamples[[i]]$graph)
lfhtcid = (sum(sapply(res$unsolvedParents, length)) == 0)
# TRUE = LF-HTC-identifiable, FALSE = not LF-HTC-identifiable
expect_equal(lfhtcid, digraphExamples[[i]]$lfhtcid)
}
})
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.