Rename AstroPenn.Rdotchart(z, main='') to AstroPenn.R