sample.data function

Sample data set with a monotone missing pattern