if (FALSE) {
set.seed(342356)
d <- data.frame(
var1 = rnorm(50),
var2 = rnorm(50),
x = rnorm(50)
)
sem_dadas(
data = d, var1 = "var1", var2 = "var2",
predictor = "x", center = TRUE, scale = TRUE,
abs_coef_diff_test = 0.20
)$results
}
Run the code above in your browser using DataLab