% Dwie grupy szczurów otrzymywa³y zastrzyki tymidyny zawieraj±ce ¶lady trytu. 
% Dodatkowo jednej grupie podano substancjê rakotwórcz±. 
% Badanie wch³aniania tymidyny przez skórê szczurów w funkcji czasu przeprowadza siê
% zliczaj±c rozpady j±der trytu na jednostkê powierzchni skóry. 
% Po transformacji logarytmicznej ($x=50\log x' -100$) uzyskano nastêpuj±ce liczby:

 
t1=[34 54 44 51 62 61 59 66 52 52]; 
t2=[40 57 52 46 61 70 67 59 63 50];  
t3=[38 40 53 51 54 64 58 67 60 44];  
t4=[36 43 51 49 60 68 66 58 59 52];
tr1=[28 23 42 43 31 32 25 24 26 26];   
tr2=[32 23 41 48 45 38 27 26 31 27];  
tr3=[34 29 34 36 41 32 27 32 25 27];  
tr4=[27 30 39 43 37 34 28 30 26 30];

T=[t1 t2 t3 t4];
TR=[tr1 tr2 tr3 tr4];
X=[T TR];
czas=[4 8 12 16 20 24 28 32 36 48 ];
GR_czas=[czas czas czas czas czas czas czas czas];
for i=1:40
GR_subs{i}='t';
end
for i=41:80
GR_subs{i}='tr';
end

GR={GR_czas GR_subs }
anovan(X,GR,'model','interaction','sstype',3,'varnames',{'czas';'substancja'})