Program in r looking at Pa school statistics