# NOT RUN {
subject1_test1 <- c(46, 42, 43)
subject2_test1 <- c(34, 35, 34)
subject3_test1 <- c(51, 48, 54)
rater1Data <- data.frame(subject1_test1, subject2_test1, subject3_test1)
subject1_test2 <- c(45, 44, 44)
subject2_test2 <- c(36, 35, 37)
subject3_test2 <- c(49, 49, 51)
rater2Data <- data.frame(subject1_test2, subject2_test2, subject3_test2)
dep_ci(rater1Data, rater2Data)
dep_ci(rater1Data, rater2Data, conf_level = 0.99)
# }
Run the code above in your browser using DataLab