data(baltimoreyouth)
x <- baltimoreyouth$teenbir10 # Teen births
y <- baltimoreyouth$compl10 # Highschool completion rate
plot_quantreg(x,y,xlab="Teen Births per 1000 Females (aged 15-19)",
ylab="High School Completion Rates")
Run the code above in your browser using DataLab