# NOT RUN {
X <- matrix(c(1, 1, 0, 1), nrow = 2) # design
Z <- designLink(design = X)
Z <- elicitPt(Z, design.pt = 1,
lower.CI.bound = -1,
median = 0,
upper.CI.bound = 1,
comment = "A completed elicitation scenario.")
# }
Run the code above in your browser using DataLab