# NOT RUN {
# }
# NOT RUN {
### This will prompt the user to select an SPSS file
testRetestCES();
# }
# NOT RUN {
### Load data from simulated dataset testRetestSimData (which
### satisfies essential tau-equivalence).
data(testRetestSimData);
### The first column is the true score, so it's excluded in this example.
exampleData <- testRetestSimData[, 2:ncol(testRetestSimData)];
### Compute test-retest alpha coefficient
testRetestCES(exampleData);
# }
Run the code above in your browser using DataLab