add a third parameter to pca to disable graphical outputs
[scilab.git] / scilab / modules / statistics / tests / unit_tests / pca.tst
1 // <-- TEST WITH GRAPHIC -->\r
2 // =============================================================================\r
3 // Tests for pca function\r
4 // Scilab Team\r
5 // Copyright INRIA\r
6 // =============================================================================\r
7 if execstr('pca()','errcatch')==0 then pause,end\r
8 // =============================================================================\r
9 a=rand(100,10,'n');\r
10 [r1,r2,r3] = pca(a);\r
11 // =============================================================================\r
12 [ra,rb,rc] = pca(a, [1 2]);\r
13 if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end\r
14 // =============================================================================\r
15 [ra,rb,rc] = pca(a, [1 2],%t);\r
16 if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end\r
17 // =============================================================================\r
18 [ra,rb,rc] = pca(a, [1 2],%f);\r
19 if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc) ) then pause,end\r
20 // =============================================================================\r