// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================

// =============================================================================
// Tests for pca function
// =============================================================================
if execstr('pca()','errcatch')==0 then pause,end
// =============================================================================
a=rand(100,10,'n');
[r1,r2,r3] = pca(a);
// =============================================================================
if size(r1) <> [10 1] then pause,end
if size(r2) <> [10 10] then pause,end
if size(r3) <> [100 10] then pause,end
// =============================================================================