tests/test_udag2pag.R

library(pcalg)

m <- matrix(FALSE, 3,3)
tmp <- list(NULL, NULL, NULL)

(pag0 <- udag2pag(m, sepset = rep(tmp, 3)))
stopifnot(is.numeric(pag0))

Try the pcalg package in your browser

Any scripts or data that you put into this service are public.

pcalg documentation built on May 29, 2024, 5:24 a.m.