# Small simulated example -----------------------------------------
set.seed(42)
N <- 6; I <- 10
alpha <- rnorm(N)
beta <- rnorm(I, sd = 0.7)
dist <- abs(matrix(rnorm(N * I, sd = 0.8), N, I)) # fake distances
# Plain fountain plot for respondent 2
pip_fountain(alpha, beta, gamma = 1.5, dist, focal_id = 2)
# Fountain plot with item groups and uncertainty intervals
grp <- rep(c("MCQ", "Essay"), length.out = I)
d_lo <- pmax(dist - 0.2, 0); d_up <- dist + 0.2
a_lo <- alpha - 0.3; a_up <- alpha + 0.3
pip_fountain(alpha, beta, gamma = 1, dist,
alpha_lower = a_lo, alpha_upper = a_up,
distance_low = d_lo, distance_up = d_up,
item_group = grp, focal_id = 4)
Run the code above in your browser using DataLab