pmvalog(c(2, 2, 2), dep = c(.6,.5,.8,.3),
asy = list(.4, .1, .6, c(.3,.2), c(.1,.1), c(.4,.1), c(.2,.3,.2)),
d = 3)
rmvalog(3, dep = c(.6,.5,.8,.3),
asy = list(.4, .0, .6, c(.3,.2), c(.1,.1), c(.4,.1), c(.2,.4,.2)),
d = 3)
set.seed(50)
rmvalog(3, dep = rep(.7,11),
asy = list(0, 0, 0, 0, c(0,0), c(0,0), c(0,0), c(0,0), c(0,0), c(0,0),
c(.2,.1,.2), c(.1,.1,.2), c(.3,.4,.1), c(.2,.2,.2), c(.4,.6,.2,.5)),
d = 4)
set.seed(50)
rmvalog(3, dep = c(rep(1,6),rep(.7,5)),
asy = list(0, 0, 0, 0, c(0,0), c(0,0), c(0,0), c(0,0), c(0,0), c(0,0),
c(.2,.1,.2), c(.1,.1,.2), c(.3,.4,.1), c(.2,.2,.2), c(.4,.6,.2,.5)),
d = 4)
Run the code above in your browser using DataLab