etas <- c(0.1, 0.3)
dec.cut <- c(0.6,0.6,0.6)
cur.obs.y <- c(3, 2, 1, 1)
prev.obs.y <- c(5, 2, 0, 0)
rst.inter <- vtInterim(cur.obs.y, prev.obs.y = prev.obs.y,
prob.mdl = "NONPARA", etas = etas,
dec.cut = dec.cut,
nsmp = 2000);
Run the code above in your browser using DataLab