R/regmed.lavaan.dat.R

In regmed: Regularized Mediation Analysis

Defines functions regmed.lavaan.dat

Documented in regmed.lavaan.dat

regmed.lavaan.dat <- function(x, mediator, y){
    dat.check <- regmed.dat.check(x, y, mediator)
    dat <- data.frame(cbind(scale(dat.check$x),scale(dat.check$mediator),scale(dat.check$y)))
    names(dat)[1] <- deparse(substitute(x))
    names(dat)[ncol(dat)] <- deparse(substitute(y))
    return(dat)
}

Try the regmed package in your browser