demo_poly.R