% 
% Written by:
% -- 
% John L. Weatherwax                2009-04-21
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

close all; drawnow; clear functions; 
rehash; 
clc; 

n = 10; p=3; 

SSTO = 100; 
SSR  = 88;
SSE  = SSTO - SSR; 

F = (SSR/p) / (SSE/(n-p-1) )

alpha = 0.05;
finv( 1-alpha, n, n-p-1 )

(6/2) / (18/6) 

q = 1;
finv( 1-alpha, p-q, n-p-1 )