dm 'log;clear;output;clear;';
options ps=50 ls=70 pageno=1;
goptions reset=global border ftext=swiss gunit=cm htext=0.4 htitle=0.5;
goptions display noprompt;

**********************************************************************;
**                                                                  **;
** AUTHOR: Chris Bilder                                             **;
** COURSE: STAT 873                                                 **;
** DATE: 1-8-01                                                     **;
** UPDATE: 8-24-03                                                  **;
** PURPOSE: Read in the FG data                                     **;
**                                                                  **;
** NOTES: Below is a description of the variables:                  **;
**  Date - Date of the game (month/day/year)                        **;
**  Week - Week of the season                                       **;
**  Location - Location of the game using a two letter abbreviation **;
**  Time - Time the game started (hour and minutes)                 **;
**  Type - Type of stadium (O=outdoor, D=Dome)                      **;
**  Field - Type of field (G=grass, T=artificial turf)              **;
**  Temp - Termperature at game time                                **;
**  Humid - Humidity at game time                                   **;
**  Dir - Direction of the wind                                     **;
**  Speed - Speed of the wind                                       **;
**  Cloud - Sky conditions (SN=Sunny,...)                           **;
**  Precip - Is precipation falling? (Y=yes,__=No information)      **; 
**  Kicker - Placekicker's name                                     **;
**  Team - The team of the placekicker                              **;
**  Opp - The opposing team                                         **;
**  Good - Was the placekick good? (Y=Yes, N=No)                    **;
**  How - If the placekick was no good, how was the placekick missed**;
**        (WR=wide right,...)                                       **;
**  PAT - Type of placekick (Y=PAT, N=field goal)                   **;
**  Dist - Distance of the placekick                                **;
**  Qrtr - Quarter of the game                                      **;
**  SC_team - Score of the placekicker's team right before the      **;
**            placekick                                             **;
**  SC_opp - Score of the opponent right before the placekick       **;
**  Win - Did the placekicker's team win? (Y=Yes, N=No)             **;
**  Fin_team - Final score of the placekicker's team                **;
**  Fin_opp - Final score of the opponent                           **;
**  windy - binary variable for wind speed > 15 mph at game time    **;
**          (wind=1) versus <=15 mph at game time (wind=0) - note   **;
**          that dome stadiums placekicks receive a wind=0 value    **;
**  diff - difference in score right before the placekick           **;
**  change - Will a successful placekick cause a lead change?       **;
**           (change=1 if it will and 0 otherwise)                  **;
**  elap30 - Time remaining in the half (0 for Overtime)            **;
**                                                                  **;
**********************************************************************;

title1 'Chris Bilder, STAT 873'; 

libname chris 'c:/chris/unl/stat873/chapter 1';

data set1;
  set chris.placekick;
  if PAT = "Y" then PAT1 = 1;  
     else PAT1 = 0;   
  if Type = "O" then type1 =1;
     else type1=0;
  if Field = "G" then field1=1;
     else field1=0;
  if Good = "Y" then good1=1;
     else good1=0;
run;


title2 'Correlations';
proc corr data=set1;
  var Week type1 field1 Temp Humid speed good1 PAT1 dist diff elap30;
run;