@@ -102,9 +102,15 @@ tape( 'the function evaluates the quantile function at `p` given positive `mu`',
102102	c  =  positiveMean . c ; 
103103	for  (  i  =  0 ;  i  <  p . length ;  i ++  )  { 
104104		y  =  quantile (  p [ i ] ,  mu [ i ] ,  c [ i ]  ) ; 
105- 		delta  =  abs (  y  -  expected [  i  ]  ) ; 
106- 		tol  =  20.0  *  EPS  *  abs (  expected [  i  ]  ) ; 
107- 		t . ok (  delta  <=  tol ,  'within tolerance. p: ' + p [  i  ] + '. mu: ' + mu [ i ] + '. c: ' + c [ i ] + '. y: ' + y + '. E: ' + expected [  i  ] + '. Δ: ' + delta + '. tol: ' + tol + '.'  ) ; 
105+ 		if  (  expected [ i ]  !==  null  )  { 
106+ 			if  (  y  ===  expected [ i ]  )  { 
107+ 				t . equal (  y ,  expected [ i ] ,  'p: ' + p [ i ] + ', mu:' + mu [ i ] + ', c: ' + c [ i ] + ', y: ' + y + ', expected: ' + expected [ i ]  ) ; 
108+ 			}  else  { 
109+ 				delta  =  abs (  y  -  expected [  i  ]  ) ; 
110+ 				tol  =  20.0  *  EPS  *  abs (  expected [  i  ]  ) ; 
111+ 				t . ok (  delta  <=  tol ,  'within tolerance. p: ' + p [  i  ] + '. mu: ' + mu [ i ] + '. c: ' + c [ i ] + '. y: ' + y + '. E: ' + expected [  i  ] + '. Δ: ' + delta + '. tol: ' + tol + '.'  ) ; 
112+ 			} 
113+ 		} 
108114	} 
109115	t . end ( ) ; 
110116} ) ; 
@@ -125,9 +131,15 @@ tape( 'the function evaluates the quantile function at `p` given negative `mu`',
125131	c  =  negativeMean . c ; 
126132	for  (  i  =  0 ;  i  <  p . length ;  i ++  )  { 
127133		y  =  quantile (  p [ i ] ,  mu [ i ] ,  c [ i ]  ) ; 
128- 		delta  =  abs (  y  -  expected [  i  ]  ) ; 
129- 		tol  =  350.0  *  EPS  *  abs (  expected [  i  ]  ) ; 
130- 		t . ok (  delta  <=  tol ,  'within tolerance. p: ' + p [  i  ] + '. mu: ' + mu [ i ] + '. c: ' + c [ i ] + '. y: ' + y + '. E: ' + expected [  i  ] + '. Δ: ' + delta + '. tol: ' + tol + '.'  ) ; 
134+ 		if  (  expected [ i ]  !==  null  )  { 
135+ 			if  (  y  ===  expected [ i ]  )  { 
136+ 				t . equal (  y ,  expected [ i ] ,  'p: ' + p [ i ] + ', mu:' + mu [ i ] + ', c: ' + c [ i ] + ', y: ' + y + ', expected: ' + expected [ i ]  ) ; 
137+ 			}  else  { 
138+ 				delta  =  abs (  y  -  expected [  i  ]  ) ; 
139+ 				tol  =  350.0  *  EPS  *  abs (  expected [  i  ]  ) ; 
140+ 				t . ok (  delta  <=  tol ,  'within tolerance. p: ' + p [  i  ] + '. mu: ' + mu [ i ] + '. c: ' + c [ i ] + '. y: ' + y + '. E: ' + expected [  i  ] + '. Δ: ' + delta + '. tol: ' + tol + '.'  ) ; 
141+ 			} 
142+ 		} 
131143	} 
132144	t . end ( ) ; 
133145} ) ; 
@@ -148,9 +160,15 @@ tape( 'the function evaluates the quantile function at `p` given large variance
148160	c  =  largeVariance . c ; 
149161	for  (  i  =  0 ;  i  <  p . length ;  i ++  )  { 
150162		y  =  quantile (  p [ i ] ,  mu [ i ] ,  c [ i ]  ) ; 
151- 		delta  =  abs (  y  -  expected [  i  ]  ) ; 
152- 		tol  =  30.0  *  EPS  *  abs (  expected [  i  ]  ) ; 
153- 		t . ok (  delta  <=  tol ,  'within tolerance. p: ' + p [  i  ] + '. mu: ' + mu [ i ] + '. c: ' + c [ i ] + '. y: ' + y + '. E: ' + expected [  i  ] + '. Δ: ' + delta + '. tol: ' + tol + '.'  ) ; 
163+ 		if  (  expected [ i ]  !==  null  )  { 
164+ 			if  (  y  ===  expected [ i ]  )  { 
165+ 				t . equal (  y ,  expected [ i ] ,  'p: ' + p [ i ] + ', mu:' + mu [ i ] + ', c: ' + c [ i ] + ', y: ' + y + ', expected: ' + expected [ i ]  ) ; 
166+ 			}  else  { 
167+ 				delta  =  abs (  y  -  expected [  i  ]  ) ; 
168+ 				tol  =  30.0  *  EPS  *  abs (  expected [  i  ]  ) ; 
169+ 				t . ok (  delta  <=  tol ,  'within tolerance. p: ' + p [  i  ] + '. mu: ' + mu [ i ] + '. c: ' + c [ i ] + '. y: ' + y + '. E: ' + expected [  i  ] + '. Δ: ' + delta + '. tol: ' + tol + '.'  ) ; 
170+ 			} 
171+ 		} 
154172	} 
155173	t . end ( ) ; 
156174} ) ; 
0 commit comments