xyplot.cumtvd: Plot cumulative total variation distance.

Description Usage Arguments See Also Examples

View source: R/post.R

Description

method description

Usage

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

Arguments

cumtvd

...

See Also

cumtvd

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
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.