function?anova1w（datalpha）
%ANOVA1W?One?way?analysis?of?variance
%??Calculates?one?way?ANOVA?table?and?tests?significance?of
%??between?factors?variation?（it?is?assumed?that?each?column
%??of?the?data?represents?a?different?treatment）.?Inputs
%??are?the?data?table?（dat）?and?the?desired?confidence?level
%??（alpha）?expressed?as?a?fraction?（e.g.?.95?.99?etc.）.
%??The?output?is?an?ANOVA?table.
%
%I/O:?anova1w（datalpha）
%
%See?also:?ANOVA2W?FTEST?STATDEMO

%Copyright?Eigenvector?Research?1994-99
%Modified?NBG?1996
%Checked?on?MATLAB?5?by?BMW??1/4/97?3/99
%Modified?BMW?12/98?via?Paul?Gemperline

[nk]?????=?size（dat）;
a_mean????=?mean（mean（dat））;
a_tr_mean?=?mean（dat）;

sst?????=?sum（sum（（dat?-?a_mean）.^2））;
sstr????=?n*sum（（a_tr_mean?-?a_mean）.^2）;
sse?????=?sum（sum（（dat?-?a_tr_mean（ones（1n）:））.^2））;

msstr???=?sstr/（k-1）;
msse????=?sse/（（n-1）*k）;
ff??????=?msstr/msse;
disp（‘??‘）
disp（‘___________________________________________________________‘）
disp（‘??Source?of???????????Sum??of????????Degrees??????????Mean‘）
disp（‘??Variation???????????Squares??????of??Freedom???????Square‘）
disp（‘___________________________________________________________‘）
s?=?sprintf（‘Between?factors???%11.5g???????%4.0f????????%10.4g‘...
sstrk-1msstr）;
disp（s）
disp（‘（columns）‘）
s?=?sprintf（‘Residual??????????%11.5g???????%4.0f????????%10.4g‘...
sse（n-1）*kmsse）;
disp（s）?disp（‘??‘）
s?=?sprintf（‘Total?????????????%11.5g???????%4.0f‘sst（k-1）+（n-1）*k）;
disp（s）
disp（‘??‘）
s?=?sprintf（‘Effect?of?factor?=?%g/%g?=?%g‘msstrmsseff）;
disp（s）
disp（‘??‘）
fstatf?=?ftest（1-alphak-1（n-1）*k）;
pc?=?（alpha）*100;
s?=?sprintf（‘F?at?%g?percent?confidence?=?%g‘pcfstatf）;?disp（s）
if?fstatf???disp（‘Effect?of?factors?IS?significant‘）
else
??disp（‘Effect?of?factors?IS?NOT?significant‘）
end
disp（‘??‘）

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2008-10-06?15:07??PLS_Toolbox\
?????文件????????1866??1999-03-29?10:01??PLS_Toolbox\anova1w.m
?????文件????????2412??1999-03-29?10:01??PLS_Toolbox\anova2w.m
?????文件????????9862??1998-04-21?10:24??PLS_Toolbox\arch.mat
?????文件????????1109??1999-03-29?10:01??PLS_Toolbox\areadr1.m
?????文件????????1423??2000-11-16?07:49??PLS_Toolbox\areadr2.m
?????文件????????1115??1999-03-29?10:01??PLS_Toolbox\areadr3.m
?????文件????????1419??2000-11-16?07:49??PLS_Toolbox\areadr4.m
?????文件?????????600??1999-03-29?10:01??PLS_Toolbox\auto.m
?????文件????????1373??1999-03-29?10:01??PLS_Toolbox\autocor.m
?????文件?????????487??1999-03-29?10:01??PLS_Toolbox\backprop.m
?????文件????????1418??2000-11-16?07:49??PLS_Toolbox\baseline.m
?????文件?????????825??1999-03-29?10:01??PLS_Toolbox\bckprpnn.m
?????文件????????7135??2000-11-16?07:50??PLS_Toolbox\bigpca.m
?????文件????????5367??1999-03-29?10:01??PLS_Toolbox\calibsel.m
?????文件????????1546??1999-03-29?10:01??PLS_Toolbox\ccordemo.m
?????文件????????3648??1999-03-29?10:01??PLS_Toolbox\cgrdsrch.m
?????文件????????2949??2000-11-17?12:33??PLS_Toolbox\clstrdmo.m
?????文件????????8654??1999-04-20?15:13??PLS_Toolbox\cluster.m
?????文件????????1528??1999-03-29?10:01??PLS_Toolbox\cndlgpls.m
?????文件????????1569??1999-03-29?10:01??PLS_Toolbox\collapse.m
?????文件???????11084??2000-11-28?14:36??PLS_Toolbox\contents.m
?????文件????????5577??2000-01-03?14:04??PLS_Toolbox\corrmap.m
?????文件????????2800??2000-11-20?13:52??PLS_Toolbox\cr.m
?????文件????????4584??1999-03-29?10:01??PLS_Toolbox\crcvrnd.m
?????文件????????5273??2000-11-20?14:08??PLS_Toolbox\crdemo.m
?????文件????????1902??1999-03-29?10:01??PLS_Toolbox\crosscor.m
?????文件???????15535??1999-03-29?10:01??PLS_Toolbox\crossval.m
?????文件????????7462??2000-01-07?12:45??PLS_Toolbox\crossvus.m
?????文件?????????793??2000-11-20?13:53??PLS_Toolbox\delsamps.m
?????文件????????1260??2000-11-20?13:54??PLS_Toolbox\deresolv.m
............此處省略175個文件信息