/*
   This program replicates the graphics in chapter 6, p. 94
     of the Kleinbaum et al. book.  Six graphics are reproduced
     and this program shows how to pass arguments to subprograms.

   Each of the do commands in this file pass six arguments to
     another do file.  The six arguments in order are the means
     of X and Y, the sd's of X and Y, the correlation between
     X and Y, and the name of the graphic file to be produced.

   This information is used in the subprogram to create simulated
     data with specific parameters and then produce a scatterplot
     of the simulated age and SBP data.  Finally, this program uses
     the "graph combine" command to put together a single graph 
     containing the six individual graphs.

   This file is clled SOCY602-CH6-F62-p94.do and calls the file 
     SOCY602-CH6-F62-p94-SUB.do.  Be sure to put both files in a 
     single directory and make that the default Stata directory.
*/

cd "c:\documents and settings\hp_owner\my documents\my classes\socy602\stata usersite\ch6\"
do SOCY602-CH6-F62-p94-SUB 52.77 145.12 15.91 22.68 .037 "a"
do SOCY602-CH6-F62-p94-SUB 43.67 143.01 11.19 20.11 .220 "b"
do SOCY602-CH6-F62-p94-SUB 48.28 143.66 13.38 22.09 .342 "c"
do SOCY602-CH6-F62-p94-SUB 50.12 134.05  9.72 20.65 .037 "d"
do SOCY602-CH6-F62-p94-SUB 48.95 143.48 18.37 23.43 .814 "e"
do SOCY602-CH6-F62-p94-SUB 40.33 135.70 15.07 18.67 .894 "f"

#delimit ;
graph combine a b c d e f, cols(2) xsize(4) ysize(5.5) 
  graphregion(color(white) margin(zero))
  name(FIG6_2, replace)
;
graph export FIG6_2.wmf, name(FIG6_2) replace;
#delimit cr