File: lambda.MD.R

package info (click to toggle)
r-cran-eipack 0.2-2-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 476 kB
  • sloc: ansic: 1,155; makefile: 5
file content (14 lines) | stat: -rw-r--r-- 401 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 

data(redistrict)
data(tuneA)
data(tuneB)
tuneB <- array(tuneB[[1]], dim = c(3, 2, 150))

out <- ei.MD.bayes(cbind(dem, rep, novote) ~ cbind(black, white, hispanic),
             data = redistrict, lambda1 = 4, lambda2 = 2,
             tune.list = list(tuneA, tuneB), sample = 1000,
             thin = 200, burnin = 0, verbose = 1000)

lambda <- lambda.MD(out, c("dem", "rep"))
densityplot(lambda)