/********************* tuberead.sas ***********************/
title 'Fungus Tube data'; /* Data definition file */

data mould;
     infile '/folders/myfolders/tubes.data.txt' firstobs=2; 
input
 line1  mcg   replic1  day1  amlng1  amscl1  amlead1  pmlng1  pmscl1  pmlead1
 line2  mcg2  replic2  day2  amlng2  amscl2  amlead2  pmlng2  pmscl2  pmlead2
 line3  mcg3  replic3  day3  amlng3  amscl3  amlead3  pmlng3  pmscl3  pmlead3
 line4  mcg4  replic4  day4  amlng4  amscl4  amlead4  pmlng4  pmscl4  pmlead4
 line5  mcg5  replic5  day5  amlng5  amscl5  amlead5  pmlng5  pmscl5  pmlead5
 line6  mcg6  replic6  day6  amlng6  amscl6  amlead6  pmlng6  pmscl6  pmlead6
 line7  mcg7  replic7  day7  amlng7  amscl7  amlead7  pmlng7  pmscl7  pmlead7
 line8  mcg8  replic8  day8  amlng8  amscl8  amlead8  pmlng8  pmscl8  pmlead8
 line9  mcg9  replic9  day9  amlng9  amscl9  amlead9  pmlng9  pmscl9  pmlead9
 line10 mcg10 replic10 day10 amlng10 amscl10 amlead10 pmlng10 pmscl10 pmlead10
 line11 mcg11 replic11 day11 amlng11 amscl11 amlead11 pmlng11 pmscl11 pmlead11
 line12 mcg12 replic12 day12 amlng12 amscl12 amlead12 pmlng12 pmscl12 pmlead12
 line13 mcg13 replic13 day13 amlng13 amscl13 amlead13 pmlng13 pmscl13 pmlead13
 line14 mcg14 replic14 day14 amlng14 amscl14 amlead14 pmlng14 pmscl14 pmlead14
 amslope  pmslope weight;
rate=(amslope+pmslope)/2;

label mcg = 'Mycelial Compatibility Group';
label weight = 'Sclerotial Weight';
label rate = 'Regression Growth Rate'; /* Average of am & pm slope */
/*****  Average morning and evening observations  ***/
array am{28} amlng1-amlng14 amscl1-amscl14;
array pm{28} pmlng1-pmlng14  pmscl1-pmscl14;
array aver{28} length1-length14 sclr1-sclr14;
do i=1 to 28; /* Length and sclerotia at the same time */
   aver{i}=(am{i}+pm{i})/2;
end;