39 |
nu1_2 = nu1 / 2.0; |
nu1_2 = nu1 / 2.0; |
40 |
nu2_2 = nu2 / 2.0; |
nu2_2 = nu2 / 2.0; |
41 |
|
|
42 |
rc = gsl_cdf_beta_inc_e(nu2_2, nu1_2, F, &result); |
rc = gsl_sf_beta_inc_e(nu2_2, nu1_2, F, &result); |
43 |
|
|
44 |
/* |
/* |
45 |
* I don't like subtracting from 1.0 here. It could cause |
* I don't like subtracting from 1.0 here. It could cause |
68 |
nu1_2 = nu1 / 2.0; |
nu1_2 = nu1 / 2.0; |
69 |
nu2_2 = nu2 / 2.0; |
nu2_2 = nu2 / 2.0; |
70 |
|
|
71 |
rc = gsl_cdf_beta_inc_e(nu2_2, nu1_2, F, &result); |
rc = gsl_sf_beta_inc_e(nu2_2, nu1_2, F, &result); |
72 |
|
|
73 |
return result.val; |
return result.val; |
74 |
|
|