R Script to simulate missing not at random data and look at performance of different imputation strategies.