### Get a dataset
dat <- ufs::bfi;
### Show the individual responses for
### the tenth participant
irpplot(dat, 10, 1:20);
### Set some missing values
dat[10, c(1, 5, 15)] <- NA;
### Show the individual responses again
irpplot(dat, 10, 1:20);
Run the code above in your browser using DataLab