Revision 1484 trunk/contrib/statslib/eplogis.cpp

eplogis.cpp (revision 1484)
23 23
	return (1./(1.-gamma))*pow((1.-gamma)/gamma,gamma)*elem_div(exp(alpha*gamma*(beta-x)),1.+exp(alpha*(beta-x)));
24 24
}
25 25

  
26

  
26
// template <typename t1, typename t2>
27
// t1 eplogis(const t1& x, const t2& alpha, const t2& beta, const t2& gamma)
28
// {
29
// 	//exponential logistic based on Grant Thompson (1994) Paper, CJFAS.
30
// 	return (1./(1.-gamma))*pow((1.-gamma)/gamma,gamma)*elem_div(exp(alpha*gamma*(beta-x)),1.+exp(alpha*(beta-x)));
31
// }

Also available in: Unified diff