if (FALSE) {
### This will prompt the user to select an SPSS file
testRetestAlpha();
}
### 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
testRetestAlpha(exampleData);
Run the code above in your browser using DataLab