# Uniform response distribution
test1.3levels <- simulateIRR(nRaters = c(6, 9, 12), nRatersPerEvent = 2, nLevels = 3,
response.probs = c(.33, .33, .33))
# Lightly skewed response distribution
test4.3levels <- simulateIRR(nRaters = c(6, 9, 12), nRatersPerEvent = 2, nLevels = 3,
response.probs = c(.275, .275, .45))
# Moderately skewed response distributions
test2.3levels <- simulateIRR(nRaters = c(6, 9, 12), nRatersPerEvent = 2, nLevels = 3,
response.probs = c(.2, .2, .6))
# Highly skewed response distributions
test3.3levels <- simulateIRR(nRaters = c(6, 9, 12), nRatersPerEvent = 2, nLevels = 3,
response.probs = c(.1, .1, .8))
Uniform Distribution
## .
## 1 2 3
## 0.3341111 0.3319944 0.3338944
Lightly Skewed
## .
## 1 2 3
## 0.2746389 0.2750574 0.4503037
Moderately Skewed
## .
## 1 2 3
## 0.2003907 0.1991685 0.6004407
Highly Skewed
## .
## 1 2 3
## 0.10013519 0.09962222 0.80024259