synthetic data code snippets in r

generate synthetic dataset with rose in r