set.seed(123)
w <- matrix(rnorm(40), ncol = 2) # 20 items in 2-D latent space
# Default heat-map
itemheatmap(w)
# Stronger decay (gamma = 3) and custom item names
itemheatmap(w, gamma = 3, item_names = paste("Item", 1:nrow(w)))
# Turn off re-ordering
itemheatmap(w, reorder = FALSE, title = "Fixed item ordering")
Run the code above in your browser using DataLab