set.seed(1)
w <- matrix(rnorm(40), ncol = 2) # 20 items
gp <- sample(c("Math", "Verbal"), nrow(w), replace = TRUE)
## 1) Single estimate, default gradient (ungrouped)
itemsimilarity(w, focal_item = 3, gamma = 2,
title = "Similarity to item 3 (gradient)")
## 2) Single estimate, turn off gradient and use one color (ungrouped)
itemsimilarity(w, focal_item = 3, gamma = 2,
use_gradient = FALSE, single_fill_color = "tomato",
title = "Similarity to item 3 (single color)")
## 3) Grouped bars (gradient ignored because groups are used)
itemsimilarity(w, focal_item = 3, gamma = 2, item_group = gp,
title = "Similarity to item 3 (grouped)")
## 4) Posterior list with credible intervals (ungrouped, gradient)
draws <- replicate(100, w + matrix(rnorm(length(w), sd = 0.1),
nrow(w), ncol(w)), simplify = FALSE)
itemsimilarity(draws, focal_item = "I10", ci_level = 0.9,
vertical = FALSE, show_gradient_legend = FALSE)
Run the code above in your browser using DataLab