/*
Read 4 datasets for NASCAR winnings for 2001 through 2004.
Concatenate the 4 data sets. 
Read 1 data set with driver birtdates.  
Merge birthdates with winnings and rookie year. 
Do an analysis of covariance to test the following questions: 
 1) Do older drivers win less than younger drivers?  
 2) Do Rookies win less than non-rookies?
 3) If older drivers do indeed make less than younger drivers, 
    is the rate of decrease for rookies the same as other drivers?

A partial program with input statements is provided below. 
*/

dm'log;clear;output;clear';
options nodate nocenter nonumber ps=512 ls=132; 
ODS HTML style=minimal rs=none body='C:\YourDirectoryHere\NASCAR ANCOVA.html' ; 

Title1 'NASCAR data';
filename inputW1 'C:\YourDirectoryHere\NASCAR Winnings 2001.csv';
filename inputW2 'C:\YourDirectoryHere\NASCAR Winnings 2002.csv';
filename inputW3 'C:\YourDirectoryHere\NASCAR Winnings 2003.csv';
filename inputW4 'C:\YourDirectoryHere\NASCAR Winnings 2004.csv';

data Winnings1; length driver $ 22; infile inputW1 missover DSD dlm=",";
  input Driver $ Rank dRank Points Behind Starts Wins Top5 Top10 Winnings;
  season = 2001;
datalines;
;
data Winnings2; length driver $ 22; infile inputW2 missover DSD dlm=",";
  input Driver $ Rank dRank Points Behind Starts Wins Top5 Top10 Winnings Rookie $;
  season = 2002;
datalines;
;
data Winnings3; length driver $ 22; infile inputW3 missover DSD dlm=",";
  input Driver $ Rank dRank Points Behind Starts Wins Top5 Top10 Winnings Rookie $;
  season = 2003;
datalines;
;
data Winnings4; length driver $ 22; infile inputW4 missover DSD dlm=",";
  input Driver $ Rank dRank Points Behind Starts Poles Wins Top5 Top10 Winnings Rookie $;
  season = 2004;
datalines;
;

/* concatenate data sets.  */ 

filename inputA1 'C:\YourDirectoryHere\NASCAR Ages.csv';

data Ages; length driver $ 22 DOB $ 10 Surname $ 15; infile inputA1 missover DSD dlm=",";
  input Driver $ DOB $ Surname $ RookieYear;
  input Driver $ DOB $ Surname $ RookieYear;
*---+----1----+----2----+----3----+----4----+----5;

/*  calculate birthdates */

datalines;
;
;

/*  merge datasets */

/*
Using analysis of covariance, answer the 3 questions: 

 1) Do older drivers win less than younger drivers?  
 2) Do Rookies win less than non-rookies?
 3) If older drivers do indeed make less than younger drivers, 
    is the rate of decrease for rookies the same as other drivers?
*/

ODS HTML close;