seqmbgx(
xm = qnorm(matrix(rep(c(0.03, 0.04, 0.01), times = 4), ncol = 3, nrow = 4)),
informationm = matrix(rep(c(0.4, 0.8, 1), each = 4), ncol = 3, nrow = 4),
spending = rep("OBF", 4),
param.spending = rep(1, 4),
alpha = 0.025,
W = c(0.5, 0.5, 0, 0),
G = rbind(c(0, 0, 1, 0), c(0, 0, 0, 1), c(0, 1, 0, 0), c(1, 0, 0, 0)),
retrospective = 0
)
Run the code above in your browser using DataLab