DATA CRIME; INPUT N AREA$ VIOL PROP POP; CARDS; 1 ALLENTOWN,PA 161.1 3162.5 636.7 2 BAKERSFIELD,CA 776.6 7701.3 403.1 3 BOSTON,MA 648.2 5647.2 2763.4 4 CHARLESTON,SC 851.7 5587.7 430.3 5 CORPUS_CHRISTI,TX 611.5 6115.1 326.2 6 ELMIRA,NY 176.0 4693.5 97.7 7 FORT_LAUDERDALE,FL 732.1 8044.4 1014.0 8 GREELY,CO 434.9 5868.9 123.4 9 JACKSON,MI 642.5 5402.4 151.5 10 LACROSSE,WI 88.3 6261.3 91.1 11 LEXINGTON,KY 338.2 4879.6 318.1 12 MADISON,WI 177.4 659.2 323.5 13 MONROE,LA 472.6 3929.2 139.2 14 NORFOLK,VA 500.9 5175.9 806.7 15 PEORIA,IL 676.3 5146.1 365.9 16 PUEBLO,CO 840.5 5709.1 126.0 17 SACRAMENTO,CA 724.7 8087.4 1014.0 18 SAN_JOSE,CA 416.1 6280.4 1295.1 19 SOUTH_BEND 354.8 5328.8 280.8 20 TEXARKANA,TX 402.7 4225.2 127.0 21 WASHINGTON,DC 693.0 5895.4 3060.2 22 YOUNGSTOWN,OH 356.4 3524.3 531.4 23 NEWYORK,NY 1469.9 6308.4 9119.7 ; PROC PRINT; VAR AREA VIOL PROP POP; PROC REG; MODEL VIOL=POP;OUTPUT OUT=A R=R P=P; RUN; DATA NEW; SET CRIME; IF _N_=23 THEN DELETE; RUN; PROC REG; MODEL VIOL=POP; RUN;