int main() {
char overFlowName[30] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
char emptyName[30] = "";
char oneName[30] = "a";
char move1[30] = "Hyper Beam";
char move2[30] = "Flex";
char move3[30] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
char move4[30] = "";
MoveCategory moveCat = PHYSICAL;
Type t1 = NONE;
Type t2 = DRAGON;
unsigned int hp = 1;
unsigned int a = 2;
unsigned int d = 3;
unsigned int SpA = 4;
unsigned int SpD = 5;
unsigned int S = 6;
PETest(hp,a,d,SpA,SpD,S,t1,t2,overFlowName,move1,move2,move3,move4, moveCat);
moveCat = SPECIAL;
PETest(hp,a,d,SpA,SpD,S,t1,t2,emptyName,move1,move2,move3,move4, moveCat);
moveCat = STATUS;
PETest(hp,a,d,SpA,SpD,S,t1,t2,oneName,move1,move2,move3,move4, moveCat);
return 0;
}
/*******************************+++*******************************/
unsigned CorParTest
(
size_t CorFam, /* Correlation family */
Matrix *RegCorPar, /* Feasibility region for the */
/* correlation parameters. */
size_t TermIndex, /* Index of the tested term. */
real AbsTol,
real CritLogLikeDiff,
Matrix *CorPar, /* Input: Correlation parameters; */
/* Output: Row TermIndex may change. */
real *NegLogLike /* Input: Negative log likelihood; */
/* Output: New value. */
)
/*****************************************************************/
/* Purpose: Test parameters against "null" values for a single */
/* term. */
/* */
/* Returns: Number of function evaluations. */
/* */
/* 2009.05.14: Created. */
/*****************************************************************/
{
unsigned NumFuncs;
if (CorFam == COR_FAM_POW_EXP)
NumFuncs = PETest(RegCorPar, TermIndex, AbsTol, CritLogLikeDiff,
CorPar, NegLogLike);
else if (CorFam == COR_FAM_MATERN)
NumFuncs = MaternTest(RegCorPar, TermIndex, AbsTol, CritLogLikeDiff,
CorPar, NegLogLike);
return NumFuncs;
}
