Create sample_circle.R