set.seed(342356)
d <- data.frame(
y1 = rnorm(50),
y2 = rnorm(50),
x = rnorm(50)
)
fit<-ddsc_sem(
data = d, y1 = "y1", y2 = "y2",
x = "x"
)
plot_ddsc(fit,x_label = "X",
y_labels=c("Y1","Y2"))
Run the code above in your browser using DataLab