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*(betax)),1.+exp(alpha*(betax))); 
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*(betax)),1.+exp(alpha*(betax))); 

31 
// } 
Also available in: Unified diff