/****************************************************************************************
*            Randomizied assignment date:         Page ___ of ___                       *
*                   Analysis prepared by:  MPG                                          *
*                            Verified by:  _______ (Date:_______)                       *
* file name: random allocation of fish to tank.SLSFH jun 2012.walleye.exp tanks.sas   	*
*****************************************************************************************/
DM 'LOG; CLEAR; OUTPUT; CLEAR;';  * CLEAR LOG AND OUTPUT;

FOOTNOTE1 'Analysis performed by M. Gaikowski SAS version ' &SYSVER &SYSTIME &SYSDATE;

options pageno = 1 nocenter nodate nosource2; 

/*Random distribution of fish to experimental tanks*/
/* tank 1 to 18 = tank A1 to A9 (1-9), tank B1 to B9 (10-18)
   round = distribution rounds 1 to 20, place <=5 fish per tank per round */

data walleye;
 do round = 1 to 20 by 1;
  do tank = 1 to 18 by 1;
   x = ranuni(-1);
   output;
  end;
 end;
run;
data walleye2; set walleye;
 if tank = 1 then tankn = 'A1';
  if tank = 2 then tankn = 'A2';
   if tank = 3 then tankn = 'A3';
    if tank = 4 then tankn = 'A4';
     if tank = 5 then tankn = 'A5';
 	  if tank = 6 then tankn = 'A6';
  	   if tank = 7 then tankn = 'A7';
   		if tank = 8 then tankn = 'A8';
    	 if tank = 9 then tankn = 'A9';
 if tank = 10 then tankn = 'B1';
  if tank = 11 then tankn = 'B2';
   if tank = 12 then tankn = 'B3';
    if tank = 13 then tankn = 'B4';
     if tank = 14 then tankn = 'B5';
      if tank = 15 then tankn = 'B6';
	   if tank = 16 then tankn = 'B7';
	    if tank = 17 then tankn = 'B8';
		 if tank = 18 then tankn = 'B9';

proc sort data = walleye2;
 by round x;
run;
proc print data= walleye2;
title1 h=2 'Field effectiveness of Aquaflor or TM200 to control mortality from MAS';
title2 h=1.5 'Study Number AEH-09-MAS-02';
title3 h=1 'Random distribution of walleye to experimental tanks';
title4 h=1 'Field trial at Spirit Lake State Fish Hatchery - June 2012';run;