STK++ 0.9.13
STK::Gamma_aj_bjk< Array > Class Template Reference

Gamma_aj_bjk is a mixture model of the following form. More...

#include <STK_Gamma_aj_bjk.h>

Inheritance diagram for STK::Gamma_aj_bjk< Array >:
Inheritance graph

Public Types

typedef GammaBase< Gamma_aj_bjk< Array > > Base
 
- Public Types inherited from STK::GammaBase< Gamma_aj_bjk< Array > >
typedef IMixtureDensity< Gamma_aj_bjk< Array > > Base
 
- Public Types inherited from STK::IMixtureDensity< Derived >
typedef hidden::MixtureTraits< Derived >::Array Array
 
typedef hidden::MixtureTraits< Derived >::Parameters Parameters
 
typedef hidden::Traits< Array >::Type Type
 

Public Member Functions

 Gamma_aj_bjk (int nbCluster)
 default constructor
 
 Gamma_aj_bjk (Gamma_aj_bjk const &model)
 copy constructor
 
 ~Gamma_aj_bjk ()
 destructor
 
void randomInit (CArrayXX const *const &p_tik, CPointX const *const &p_tk)
 Initialize randomly the parameters of the Gamma mixture.
 
bool run (CArrayXX const *const &p_tik, CPointX const *const &p_tk)
 Compute the run( CArrayXX const* const& p_tik, CPointX const* const& p_tk) .
 
int computeNbFreeParameters () const
 
- Public Member Functions inherited from STK::GammaBase< Gamma_aj_bjk< Array > >
Real shape (int k, int j) const
 
Real scale (int k, int j) const
 
void initializeModelImpl ()
 Initialize the parameters of the model.
 
Real lnComponentProbability (int i, int k) const
 
Real impute (int i, int j, Weights const &pk) const
 
Real rand (int i, int j, int k) const
 
void getParameters (Array &params) const
 This function is used in order to get the current values of the parameters in an array of size (2*nbCluster, nbVariable).
 
void writeParameters (CArrayXX const *p_tik, ostream &os) const
 This function can be used to write summary of parameters to the output stream.
 
Array const *constp_data () const
 
- Public Member Functions inherited from STK::IMixtureDensity< Derived >
 ~IMixtureDensity ()
 destructor
 
int nbCluster () const
 
int nbSample () const
 
Real lnNbSample () const
 
Array const *constp_data () const
 
Parameters constparam () const
 
void setData (Array const &data)
 Set the data set.
 
void setData (Array const &data, int nbRow, int nbCol, bool byRow=true)
 Set the data set and give dimensions.
 
bool initializeStep ()
 This function will be called at the beginning of the estimation process once the model is created and data is set.
 
void setParametersStep ()
 set the parameters obtained with the intermediate results and release the intermediate results.
 
void finalizeStep ()
 This function will be called once the model is estimated.
 
template<class Weights >
Type sample (int i, int j, Weights const &tk) const
 
- Public Member Functions inherited from STK::IRecursiveTemplate< Derived >
Derived & asDerived ()
 static cast : return a reference of this with a cast to the derived class.
 
Derived constasDerived () const
 static cast : return a const reference of this with a cast to the derived class.
 
Derived * asPtrDerived ()
 static cast : return a ptr on a Derived of this with a cast to the derived class.
 
Derived constasPtrDerived () const
 static cast : return a ptr on a constant Derived of this with a cast to the derived class.
 
Derived * clone () const
 create a leaf using the copy constructor of the Derived class.
 
Derived * clone (bool isRef) const
 create a leaf using the copy constructor of the Derived class and a flag determining if the clone is a reference or not.
 

Additional Inherited Members

- Public Attributes inherited from STK::GammaBase< Gamma_aj_bjk< Array > >
Parameters param_
 parameters of the derived mixture model.
 
- Protected Member Functions inherited from STK::GammaBase< Gamma_aj_bjk< Array > >
 GammaBase (int nbCluster)
 default constructor
 
 GammaBase (GammaBase const &model)
 copy constructor
 
 ~GammaBase ()
 destructor
 
Real qValue (CArrayXX const *p_tik, CPointX const *p_tk) const
 compute the Q(theta) value.
 
bool moments (CArrayXX const *p_tik)
 compute the weighted moments of a gamma mixture.
 
Real meanjk (int j, int k)
 get the weighted mean of the jth variable of the kth cluster.
 
Real variancejk (int j, int k)
 get the weighted variance of the jth variable of the kth cluster.
 
Real meank (int k)
 get the mean of the weighted means of the kth cluster.
 
Real variancek (int k)
 get the mean of the weighted variances of the kth cluster.
 
- Protected Member Functions inherited from STK::IMixtureDensity< Derived >
 IMixtureDensity (int nbCluster)
 Default constructor.
 
 IMixtureDensity (IMixtureDensity const &model)
 copy constructor.
 
void initializeModel ()
 Initialize the model before its first use.
 
bool initializeStepImpl ()
 default implementation of initializeStepImpl (do nothing and return true)
 
void finalizeStepImpl ()
 default implementation of finalizeStepImpl (do nothing)
 
void setNbSample (int nbSample)
 Set the number of sample of the model (needed by kernel models)
 
- Protected Member Functions inherited from STK::IRecursiveTemplate< Derived >
 IRecursiveTemplate ()
 constructor.
 
 ~IRecursiveTemplate ()
 destructor.
 
- Protected Attributes inherited from STK::IMixtureDensity< Derived >
Parameters param_
 parameters of the derived mixture model.
 

Detailed Description

template<class Array>
class STK::Gamma_aj_bjk< Array >

Gamma_aj_bjk is a mixture model of the following form.

\[
    f(\mathbf{x}_i|\theta) = \sum_{k=1}^K p_k
    \prod_{j=1}^p\left(\frac{x_i^j}{b_{jk}}\right)^{a_{j}-1}
                  \frac{e^{-x_i^j/b_{jk}}}{b_{jk} \, \Gamma(a_{j})},
     \quad x_i^j>0, \quad i=1,\ldots,n.
\]

Definition at line 70 of file STK_Gamma_aj_bjk.h.

Member Typedef Documentation

◆ Base

Definition at line 73 of file STK_Gamma_aj_bjk.h.

Constructor & Destructor Documentation

◆ Gamma_aj_bjk() [1/2]

template<class Array >
STK::Gamma_aj_bjk< Array >::Gamma_aj_bjk ( int  nbCluster)
inline

default constructor

Parameters
nbClusternumber of cluster in the model

Definition at line 83 of file STK_Gamma_aj_bjk.h.

83: Base(nbCluster) {}
GammaBase< Gamma_aj_bjk< Array > > Base

◆ Gamma_aj_bjk() [2/2]

template<class Array >
STK::Gamma_aj_bjk< Array >::Gamma_aj_bjk ( Gamma_aj_bjk< Array > const model)
inline

copy constructor

Parameters
modelThe model to copy

Definition at line 87 of file STK_Gamma_aj_bjk.h.

87: Base(model) {}

◆ ~Gamma_aj_bjk()

template<class Array >
STK::Gamma_aj_bjk< Array >::~Gamma_aj_bjk ( )
inline

destructor

Definition at line 89 of file STK_Gamma_aj_bjk.h.

89{}

Member Function Documentation

◆ computeNbFreeParameters()

template<class Array >
int STK::Gamma_aj_bjk< Array >::computeNbFreeParameters ( ) const
inline
Returns
the number of free parameters of the model

Definition at line 99 of file STK_Gamma_aj_bjk.h.

100 { return this->nbCluster()*p_data()->sizeCols()+p_data()->sizeCols();}

References STK::IMixtureDensity< Derived >::nbCluster(), and STK::GammaBase< Gamma_aj_bjk< Array > >::p_data().

◆ randomInit()

template<class Array >
void STK::Gamma_aj_bjk< Array >::randomInit ( CArrayXX const *const p_tik,
CPointX const *const p_tk 
)

Initialize randomly the parameters of the Gamma mixture.

The shape will be selected randomly using an exponential of parameter mean^2/variance and the scale will be selected randomly using an exponential of parameter variance/mean.

Definition at line 108 of file STK_Gamma_aj_bjk.h.

109{
110 // compute moments
111 this->moments(p_tik);
112 for (int j=p_data()->beginCols(); j < p_data()->endCols(); ++j)
113 {
114 // random scale for each cluster
115 Real value = 0.0;
116 for (int k= p_tik->beginCols(); k < p_tik->endCols(); ++k)
117 {
118 Real mean = meanjk(j,k), variance = variancejk(j,k);
119 param_.scale_[k][j] = Law::Exponential::rand((variance/mean));
120 value += p_tk->elt(k) * (mean*mean/variance);
121 }
122 param_.shape_[j] = STK::Law::Exponential::rand(value/(this->nbSample()));
123 }
124#ifdef STK_MIXTURE_VERY_VERBOSE
125 stk_cout << _T(" Gamma_aj_bjk<Array>::randomInit done\n");
126#endif
127}
#define stk_cout
Standard stk output stream.
#define _T(x)
Let x unmodified.
Parameters param_
parameters of the derived mixture model.
Real meanjk(int j, int k)
get the weighted mean of the jth variable of the kth cluster.
bool moments(CArrayXX const *p_tik)
compute the weighted moments of a gamma mixture.
Real variancejk(int j, int k)
get the weighted variance of the jth variable of the kth cluster.
virtual Real rand() const
Generate a pseudo Exponential random variate.
double Real
STK fundamental type of Real values.
hidden::SliceVisitorSelector< Derived, hidden::MeanVisitor, Arrays::by_col_ >::type_result mean(Derived const &A)
If A is a row-vector or a column-vector then the function will return the usual mean value of the vec...
hidden::FunctorTraits< Derived, VarianceOp >::Row variance(Derived const &A, bool unbiased=false)
Compute the variance(s) value(s) of A.

References _T, STK::mean(), STK::Law::Exponential::rand(), and stk_cout.

◆ run()

template<class Array >
bool STK::Gamma_aj_bjk< Array >::run ( CArrayXX const *const p_tik,
CPointX const *const p_tk 
)

Compute the run( CArrayXX const* const& p_tik, CPointX const* const& p_tk) .

Definition at line 131 of file STK_Gamma_aj_bjk.h.

132{
133 if (!this->moments(p_tik)) { return false;}
134 // estimate a and b
135 for (int j=p_data()->beginCols(); j < p_data()->endCols(); ++j)
136 {
137 Real y =0.0, x0 = 0.0;
138 for (int k= p_tik->beginCols(); k < p_tik->endCols(); ++k)
139 {
140 Real mean = meanjk(j,k);
141 y += p_tk->elt(k) * (param_.meanLog_[k][j]-std::log(mean));
142 x0 += p_tk->elt(k) * (mean*mean/variancejk(j,k));
143 }
144 // constant, moment estimate and oldest value
145 y /= this->nbSample();
146 x0 /= this->nbSample();
147 Real x1 = param_.shape_[j];
148 if ((x0 <=0.) || (isNA(x0)))
149 { x0 = 1; return false;}
150
151 // get shape
152 hidden::invPsiMLog f(y);
153 Real a = Algo::findZero(f, x0, x1, 1e-08);
155 {
156#ifdef STK_MIXTURE_DEBUG
157 stk_cout << "ML estimation failed in Gamma_ajk_bjk::run( CArrayXX const* const& p_tik, CPointX const* const& p_tk) \n";
158 stk_cout << "x0 =" << x0 << _T("\n";);
159 stk_cout << "f(x0) =" << f(x0) << _T("\n";);
160 stk_cout << "x1 =" << x1 << _T("\n";);
161 stk_cout << "f(x1) =" << f(x1) << _T("\n";);
162#endif
163 a = x0; // use moment estimate
164 }
165 // set values
166 param_.shape_[j] = a;
167 // update bjk
168 for (int k= p_tik->beginCols(); k < p_tik->endCols(); ++k)
169 { param_.scale_[k][j] = meanjk(j, k)/a;}
170 }
171 return true;
172}
Real findZero(IFunction< Function > const &f, Real const &x0, Real const &x1, Real tol)
find the zero of a function.
bool isNA(Type const &x)
utility method allowing to know if a value is a NA (Not Available) value
static bool isFinite(Type const &x)

References _T, STK::Algo::findZero(), STK::isNA(), STK::mean(), and stk_cout.


The documentation for this class was generated from the following file: