/*************************************************************************
Silent unit test
*************************************************************************/
bool testpcaunit_test_silent()
{
bool result;
result = testpca(true);
return result;
}
/*************************************************************************
Unit test
*************************************************************************/
bool testpcaunit_test()
{
bool result;
result = testpca(false);
return result;
}
/*************************************************************************
Unit test
*************************************************************************/
bool testpcaunit_test()
{
#ifndef ALGLIB_OPTIMIZED
bool result;
result = testpca(false);
return result;
#else
return _i_testpcaunit_test();
#endif
}