## preparing to generate synthetic datsets
Y_demo <- data.frame(
Sepal.Length = iris$Sepal.Length,
Sepal.Width = iris$Sepal.Width,
Petal.Length = iris$Petal.Length,
Petal.Width = iris$Petal.Width
)
X_demo <- data.frame(
Species = iris$Species
)
dat_obj <- readData(Y_input = Y_demo, X_input = X_demo)
mod_obj <- createModel(dat_obj, max_R_S_K=c(30,50,20))
## generating synthetic datasets
res_obj <- multipleSyn(dat_obj, mod_obj, n_burnin = 100, m = 5,
interval_btw_Syn = 50, show_iter = FALSE)
print(res_obj)
Run the code above in your browser using DataLab