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