# NOT RUN {
# }
# NOT RUN {
### Generate a datafile to use
exampleData <- data.frame(item1=rnorm(100));
exampleData$item2 <- exampleData$item1+rnorm(100);
exampleData$item3 <- exampleData$item1+rnorm(100);
exampleData$item4 <- exampleData$item2+rnorm(100);
exampleData$item5 <- exampleData$item2+rnorm(100);
### Use all items and create object
scaleDiagnosisObject <- scaleDiagnosis(dat=exampleData);
### Generate a PDF
scaleDiagnosisToPDF(scaleDiagnosisObject);
# }
Run the code above in your browser using DataLab