https://bugs.kde.org/show_bug.cgi?id=404431

--- Comment #4 from Matthias <matthias.j.w.h...@gmail.com> ---
Sorry, my bad. The bug can be triggered with this script:

#Preparation
library(likert)
set.seed(1)
n <- 100

# Create dataframe df
df <- data.frame(
    id=sample(1:5,n, replace=T), 
    rating=factor(sample(1:5,n, replace=T),
labels=c("Good","Neither","Poor","Very Good","Very Poor"))
)

#Now open df in Rkward's viewer, then run:
df <- likert(items=df[,2, drop = FALSE], nlevels = 5)

-- 
You are receiving this mail because:
You are watching all bug changes.

Reply via email to