# Create sample data
test_data <- data.frame(
ID = c("A", "B", "C", "D", "E"),
var1 = c(0.9, 0.85, 0.89, 1.0, 0.89),
var2 = c(0.99, 0.92, 0.90, 1.0, 0.93),
var3 = c(1.0, 0.99, 0.98, 1.0, 0.99)
)
# Calculate ridit scores
ridit_result <- ridit(test_data)
print(ridit_result)
Run the code above in your browser using DataLab