# NOT RUN {
# Generate some fictional data. Say 100 students take a 50-item long test
# where all items are equally difficult.
set.seed(1234)
p.success <- rBeta.4P(100, .25, .75, 5, 3)
for (i in 1:50) {
if (i == 1) {
rawdata <- matrix(nrow = 100, ncol = 50)
}
rawdata[, i] <- rbinom(100, 1, p.success)
}
# To calculate Cronbach's Alpha for this test:
cba(rawdata)
# }
Run the code above in your browser using DataLab