R Under development (unstable) (2025-08-31 r88749 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> stopifnot(require(mi))
Loading required package: mi
Loading required package: Matrix
Loading required package: stats4
mi (Version 1.2, packaged: 2025-09-01 20:01:42 UTC; ben)
mi  Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015 Trustees of Columbia University
This program comes with ABSOLUTELY NO WARRANTY.
This is free software, and you are welcome to redistribute it
under the General Public License version 2 or later.
Execute RShowDoc('COPYING') for details.
> 
> rdf <- rdata.frame(N = 100, n_partial = 2, n_full = 2)
> mdf <- missing_data.frame(rdf$obs)
> 
> rdf <- rdata.frame(N = 100, n_partial = 6, n_full = 1, 
+                    types = c("ordinal", "cont", "count", "binary",
+                              "proportion", "positive", "nominal"))
> mdf <- missing_data.frame(rdf$obs)
Loading required namespace: betareg
> mdf <- missing_data.frame(rdf$obs, favor_positive = TRUE)
> 
> rdf <- rdata.frame(N = 100, n_partial = 5, n_full = 1, experiment = TRUE,
+                    types = c("treatment", "cont", "count", "binary",
+                              "proportion", "positive"))
> mdf <- missing_data.frame(rdf$obs, subclass = "experiment", concept = 
+                           as.factor(c("treatment", rep("covariate", 4), "outcome")))
> 
> rdf <- rdata.frame(N = 100, n_partial = 5, n_full = 0, types = "ordinal")
> mdf <- missing_data.frame(rdf$obs, subclass = "allcategorical")
> 
> proc.time()
   user  system elapsed 
   2.20    0.17    2.31