**TI89**mainRanova1ï¥Z•() Prgm ClrIO OneVar c2,c1 dim(dist[1])k sum(seq(dist[1][i](dist[2][i]-š)^2,i,1,k))a sum(seq((dist[1][i]-1)*(dist[3][i])^2,i,1,k))b (a/(k-1))/(b/(nStat-k))f 1-s\fcdff(0,f,k-1,nStat-k)p ¨(sum(seq((dist[1][i]-1)(dist[3][i])^2,i,1,k)/(nStat-k)))s ClrIO Output 1,1,"pool.dev" Output 1,65,round(s) Output 16,1,"f-stat" Output 16,65,round(f) Output 32,1,"p-value" Output 32,65,round(p) EndPrgm äåÜÀz