inst/examples/dbn.R

library("bnstruct")

# toy example to check the method works
mydata <- BNDataset("../extdata/asia_2_layers.data", "../extdata/asia_2_layers.header", starts.from=0, num.time.steps=2)
net <- learn.dynamic.network(mydata, num.time.steps=2, layering=c(1,1,1,1,2,2,2,2))
d1 <- dag(net)

net <- learn.network(mydata, layering=c(1,1,1,1,2,2,2,2))
d2 <- dag(net)

print(d1 - d2)

plot(net)

Try the bnstruct package in your browser

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

bnstruct documentation built on May 29, 2024, 3:17 a.m.