### Get the BFI data taken from the `psych` package
dat <- ufs::bfi;
### Get the variable names for the regular items
bfiVars <-
setdiff(names(dat),
c("gender", "education", "age"));
### Inspect suspect participants, very conservatively to
### limit the output (these are 2800 participants).
carelessReport(data = dat,
items = bfiVars,
nFlags = 5);
Run the code above in your browser using DataLab