# NOT RUN {
# p = 10
Y <- BGGM::bfi[,1:10]
# hypothesis
hypothesis <- c("1--2 > 1--3 > 1--4 > 1--5")
# test inequality contraint
test_order <- confirm(Y = Y, hypothesis = hypothesis,
prior_sd = 0.5, iter = 50000,
cores = 2)
# summary
summary(test_order)
# test hypothesized directions
# hypothesis
hypothesis <- c("(1--2, 1--3, 1--4) < 0 < (1--6)")
# test directions
test_directions <- confirm(Y = Y, hypothesis = hypothesis,
prior_sd = 0.5, iter = 50000,
cores = 2)
# summary
summary(test_directions)
# }
Run the code above in your browser using DataLab