generate_patterns(4)
#++++ To use with the function ampute() from package mice ++++#
library(mice)
patterns_matr <- generate_patterns(4)
data_missing <- ampute(iris[1:4], prop = 0.5, patterns = patterns_matr)$amp
Run the code above in your browser using DataLab