q <- 1:5
prob <- c(.1, .2, .4, .2, .1)
plikert(q, prob)
q <- c("A", "C", "B", "B")
prob <- c(A = 10, B = 20, C = 30)
plikert(q, prob)
# specify labels if prob not named and not 1:length(prob)
labels <- -2:2
q <- labels
prob <- rep(1, length(labels)) # uniform probability
plikert(q, prob, labels)
Run the code above in your browser using DataLab