Generate sample data using R