Title 'Baseball data: Teams File';
* Corrected: missing teams added;
* Added:  city names and team nicknames;
* Revised: 4 Feb 2002 09:14:02;
 
/*--------------------------------------------------------*
 |                        The Team File                   |
 *--------------------------------------------------------*/
 
Data TEAM;
   input team $3. +1 league $1. +1 division $1.
     +1 rank 2. wins 4. losses 3. atthome 9. attaway 9. salary 8.3;
Label
     team     = 'Team'
     league   = 'League'
     division = 'Division'
     rank     = 'Position in final league standings 1986'
     wins     = 'Number of wins in 1986'
     losses   = 'Number of losses in 1986'
     atthome  = 'Attendance for home games in 1986'
     attaway  = 'Attendance for away games in 1986'
     salary   = '1987 average salary ($1000)';
datalines;
NYN N E  1 108 54  2767601  2176615 526.899                                     
PHI N E  2  86 75  1933335  1721147 540.930                                     
STL N E  3  79 82  2471974  1695738 445.049                                     
MON N E  4  78 83  1128981  1926119 312.959                                     
CHN N E  5  70 90  1859102  1879706 556.256                                     
PIT N E  6  64 98  1000917  1651057 223.730                                     
HOU N W  1  96 66  1734276  1816220 430.363                                     
CIN N W  2  86 76  1692432  1849888 313.194                                     
SF  N W  3  83 79  1528748  1924802 326.583                                     
SD  N W  4  74 88  1805716  1779829 405.340                                     
LA  N W  5  73 89  3023208  2074970 580.250                                     
ATL N W  6  72 89  1387181  1837380 462.188                                     
BOS A E  1  95 66  2147641  2266765 552.646                                     
NYA A E  2  90 72  2268030  2196697 551.519                                     
DET A E  3  87 75  1899437  1821142 445.978                                     
TOR A E  4  86 76  2455477  1716243 423.417                                     
CLE A E  5  84 78  1471805  1727486 363.073                                     
MIL A E  6  77 84  1265041  1707552 266.542                                     
BAL A E  7  73 89  1973176  1737994 550.229                                     
CAL A W  1  92 70  2655872  1685439 408.181                                     
TEX A W  2  87 75  1692002  1670132 240.250                                     
KC  A W  3  76 86  2320794  1909566 405.833
OAK A W  4  76 86  1314646  1614837 392.951
CHA A W  5  72 90  1424313  1852893 371.979
MIN A W  6  71 91  1255453  1707440 432.097
SEA A W  7  67 95  1029045  1558546 186.146
;
data cities;
	length team $3 city $12 nickname $9;
	input team $ city &$:  nickname &$:;
	label city = 'Team City'
         nickname = 'Nickname';
datalines;
ATL  Atlanta          Braves    
BAL  Baltimore        Orioles   
BOS  Boston           Red Sox   
CAL  California       Angels    
CHA  Chicago A        White Sox 
CHN  Chicago N        Cubs      
CIN  Cincinnati       Reds      
CLE  Cleveland        Indians   
DET  Detroit          Tigers    
HOU  Houston          Astros    
KC   Kansas City      Royals    
LA   Los Angeles      Dodgers   
MIL  Milwaukee        Brewers   
MIN  Minnesota        Twins     
MON  Montreal         Expos     
NYA  New York A       Yankees   
NYN  New York N       Mets      
OAK  Oakland          A's       
PHI  Philadelphia     Phillies  
PIT  Pittsburgh       Pirates   
SD   San Diego        Padres    
SEA  Seattle          Mariners  
SF   San Francisco    Giants    
STL  St. Louis        Cardinals 
TEX  Texas            Rangers   
TOR  Toronto          Blue Jays 
;
proc sort data=team;
	by team;
data team;
	merge cities team;
	by team;