# In this example, we define a dataframe describing the rating of ten
# imaginary items as assessed by seven artificial experts. The minimum point
# of the rating scale is 1, and the maximum point that could be given by
# those experts is 4.
df <- data.frame(item1 = c(3,3,3,4,4,4,3),
item2 = c(2,4,3,2,4,4,4),
item3 = c(4,3,3,2,4,4,3),
item4 = c(3,2,3,3,4,3,3),
item5 = c(4,4,4,3,3,3,3),
item6 = c(3,3,3,4,3,3,4),
item7 = c(4,4,4,3,4,4,4),
item8 = c(3,3,4,4,4,4,4),
item9 = c(4,4,4,3,4,4,4),
item10 = c(4,3,4,4,3,3,4))
# Compute the Lawshe's CVR
lawsheCVR(df)
Run the code above in your browser using DataLab