# NOT RUN {
o1 <- c(-0.27, -0.24, -0.24, 0.75)
o2 <- c(-0.06, -0.55, 0.66, -0.06)
o3 <- c(0.04, 0.57, -0.65, 0.04)
o4 <- c(0.73, -0.39, -0.20, -0.14)
TODAM2(o1, o2, o3, o4, gamma = rep(c(0.7, 0.8), 5),
alpha = 0.95, sqc = rep(1:4, 4:1))
# }
Run the code above in your browser using DataLab