options linesize=70 nodate nonumber;                                                            
DATA HOUSE;                                                                     
INPUT PRICE BDR FLR FP RMS STORM LOT TAX AC BTH CON BMT GAR CDN L1 L2;          
othrms = rms - bdr;                                                             
CARDS;                                                                          
53 2 967 0 5 0 39 652 0 1.5 1 1 0 0      1 0                                    
55 2 815 1 5 0 33 1000 0 1 1 1 2 1       1 0                                    
56 3 900 0 5 1 35 897 1 1.5  1 1 1 0     1 0                                    
58 3 1007 0 6 1 24 964 0 1.5 0 1 2 0     1 0                                    
64 3 1100 1 7 0 50 1099 0 1.5 1 1 1.5 0  1 0                                    
44 4 897 0 7 0  25 960 0 2 0 1 1 0       1 0                                    
49 5 1400 0 8 0 30 678 0 1 0 1 0  1      1 0                                    
70 3 2261 0 6 0 29 2700 0 1 0 0 2 0      1 0                                    
72 4 1290 0 8 1 33.5 800 0 1.5 1 1 1 0   1 0                                    
82.5 4 2104 0 9 0 40 1038 0 2.5 1 1 1 1  1 0                                    
85 8 2240 1 12 1 50 1200 0 3 0 1 2 0     1 0                                    
45 2 641 0 5 0 25 860 0 1 0 0 0 0        0 1                                    
47 3 862 0 6 0 25 600 0 1 1 1 0  0       0 1                                    
49 4 1043 0 7  0 30 676 0 1.5 0 1 0 0    0 1                                    
56 4 1325 0 8 0 50 1287 0 1.5 0 1 0 0    0 1                                    
60 2 782 0 5 1 25 834 0 1 0 1 0 0        0 1                                    
62.6 3 1126 0 7 1 30 734 0 2 1 1 0  1    0 1                                    
64 4 1226 0 8 0 37 551 0 2 0 1 2 0       0 1                                    
66 2 929 1 5 0 30 1355 0 1 1 1 1 0       0 1                                    
35 4 1137 0 7 0 25 561 0 1.5 0 1 0 0     0 0                                    
38 3 743 0 6 0 25 489 0 1 1 1 0 0        0 0                                    
43 3 596 0 5 0 50 752 0 1 0 1 0 0        0 0                                    
46 2 803 0 5 0 27.5 774 0 1 1 1 0 1      0 0                                    
46 2 696 0 4 0 30 440 0 2 1 1 1 0        0 0                                    
50 2 691 0 6 0 30 549 0 1 0 1 2 1        0 0                                    
65 3 1023 0 7 1 30 900 1 2 1 1 1 0       1 0                                    
;                                                                               
PROC REG DATA=HOUSE;                                                            
model price=flr rms bdr bth gar lot fp storm l1 l2;                             
output out =aaa p=p r=r;                                                        
data a; set aaa; if p < 50 then w=1; else w=.25;                                
*if p>60 then w=.06;                                                            
if _n_=20 then delete;                                                          
cor=rms-bdr-3.27;  
run; 
proc reg;                                                                   
model price=flr bdr rms bth gar lot fp storm l1 l2/influence                    
collin tol;                                                                     
weight w;                                                                       
output out =aa p=p1 r=r1;data b; set aa; r =r1*sqrt(w); 
run;