xyplot.cumtvd: Plot cumulative total variation distance.

In rjbgoudie/structmcmc: Structural inference for Bayesian Networks and Variable Selection.

Description

method description

Usage

  ## S3 method for class 'cumtvd'
 xyplot(cumtvd)

Arguments

cumtvd

...

See Also

cumtvd

Examples

x1 <- factor(c(1, 1, 0, 1, 1, 1))
x2 <- factor(c(0, 1, 0, 1, 0, 1))
x3 <- factor(c(0, 1, 0, 0, 0, 0))
x <- data.frame(x1 = x1, x2 = x2, x3 = x3)

exact <- posterior(x, "exact")
exactgp <- gp(exact)
mcmc1 <- posterior(x, "mc3", nSamples = 1000, nBurnin = 100)
mcmc2 <- posterior(x, "mc3", nSamples = 1000, nBurnin = 100)

tvd <- cumtvd(exactgp = exactgp,
              bnpostmcmclist = bnpostmcmc.list(mcmc1, mcmc2))
if (require(lattice)){
  xyplot(tvd)
}

rjbgoudie/structmcmc documentation built on Nov. 3, 2020, 3:41 a.m.