Add a dataset for testing warning message in stdmod_lavaan

Author: sfcheung

R/data_4.R

@@ -0,0 +1,25 @@
+#' @title Sample Dataset: A Path Model With A Moderator
+#'
+#' @description For testing the handling of warning
+#' in [stdmod_lavaan()]. Generated from the following
+#' model. `dv` has about 88% missing.
+#'
+#'```
+#'mod <-
+#'"
+#'med ~ iv + mod + iv:mod + cov1
+#'dv ~ med + cov2
+#'"
+#'```
+#'
+#' @format A data frame with 500 rows and 6 variables:
+#' \describe{
+#'   \item{dv}{Dependent variable, continuous}
+#'   \item{iv}{Independent variable, continuous}
+#'   \item{med}{Mediator, continuous}
+#'   \item{mod}{Moderator, continuous}
+#'   \item{cov1}{Covariate, continuous}
+#'   \item{cov2}{Covariate, continuous}
+#' }
+#'
+"test_mod3_miss"

data-raw/create_test_data_4.R

@@ -0,0 +1,37 @@
+#' #Create several datasets for testing purpose.
+#'
+#'
+
+#' A path model
+#' For testing
+
+library(lavaan)
+set.seed(164442)
+n <- 500
+x1 <- rnorm(n)
+c1 <- rnorm(n)
+w1 <- .5 * x1 + rnorm(n, 0, sqrt(1 - .5^2))
+m1 <- 10 + .2 * x1 + .1 * w1 + .2 * x1 * w1 + .1 * c1 + rnorm(n, 0, .5)
+summary(lm(m1 ~ x1 * w1 + c1))
+c2 <- rnorm(n)
+y <- 20 + .3 * m1 + .2 * c2 + rnorm(n, 0, .5)
+summary(lm(y ~ m1 + c2))
+dat <- data.frame(dv = y,
+                  iv = x1,
+                  mod = w1,
+                  med = m1,
+                  cov1 = c1,
+                  cov2 = c2)
+dat[1:(n * .88), "dv"] <- NA
+mod <-
+"
+med ~ iv + mod + iv:mod + cov1
+dv ~ med + cov2
+"
+fit <- sem(mod, dat, fixed.x = FALSE, missing = "fiml.x")
+tmpfct <- function(d, i) {
+    update(fit, data = d[i, ])
+  }
+# temp <- replicate(10, tmpfct(dat, sample.int(n, replace = TRUE)))
+test_mod3_miss <- dat
+usethis::use_data(test_mod3_miss, overwrite = TRUE)