# Generate datasets without saving to disk
results <- generate_synthetic_datasets(
n_dims_list = c(2, 3),
seeds = c(123, 456),
n_points = 50
)
# \donttest{
# Generate datasets and save to a temporary directory
temp_out_dir <- tempdir()
results_saved <- generate_synthetic_datasets(
n_dims_list = c(2),
seeds = c(123),
n_points = 10,
missingness_levels = list(low=0.5, high=0.8),
output_dir = temp_out_dir,
save_plots = TRUE
)
list.files(temp_out_dir)
# Clean up the directory
unlink(temp_out_dir, recursive = TRUE)
# }
Run the code above in your browser using DataLab