/usr/include/JAGS/sampler/Slicer.h is in jags 3.1.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | #ifndef SLICER_H_
#define SLICER_H_
#include <sampler/SampleMethod.h>
/**
* Enumerates different states of the sampler, SLICER_OK means there has
* been no error, SLICER_POSINF means that the Slicer is stuck at a
* point of infinite density. SLICER_NEGINF means that current value of
* the slicer has zero density (or -Inf on the log scale).
*/
enum SlicerState {SLICER_OK, SLICER_POSINF, SLICER_NEGINF};
/**
* @short Slice Sampling method
*
* The slice sampler is defined by Neal R (2003) Slice Sampling,
* Ann. Statist. 31; 3: 705-767.
*/
class Slicer : public SampleMethod
{
double _width;
bool _adapt;
unsigned int _max;
double _sumdiff;
unsigned int _iter;
SlicerState _state;
bool accept(double xold, double xnew, double z, double L, double R,
double lower, double upper);
public:
/**
* Constructor for Slice Sampler
*
* @param width Initial width of slice
*
* @param max Maximum number of times initial width of slice will
* increase at each iteration.
*/
Slicer(double width, unsigned int max);
/**
* Update the current value using the "stepping" method. A Sampler
* that uses the Slicer DensityMethod can implement Sampler#update
* by calling this function.
*
* @return Success indicator. If the return value is false, then
* the slicer state is set to show the error that occurred.
*/
bool updateStep(RNG *rng);
/**
* Update the current value using the "doubling" method. A Sampler
* that uses the Slicer DensityMethod can implement Sampler#update
* by calling this function.
*
* @return Success indicator. If the return value is false, then
* the slicer state is set to show the error that occurred.
*/
bool updateDouble(RNG *rng);
/**
* Returns the current value of the Slicer.
*/
virtual double value() const = 0;
/**
* Sets the value of the Slicer.
*
* @param x value to set
*/
virtual void setValue(double x) = 0;
/**
* Gets the lowest and highest possible values of the Slicer
*/
virtual void getLimits(double *lower, double *upper) const = 0;
/**
* Turns off adaptive mode.
*/
void adaptOff();
/**
* The current adaptation test is very basic, and will return true
* if a minimum number of iterations (50) have taken place.
*/
bool checkAdaptation() const;
/**
* The slicer method is adaptive. The step size adapts to the
* mean distance between consecutive updates
*/
bool isAdaptive() const;
/**
* Returns the log probability density function of the target
* distribution.
*/
virtual double logDensity() const = 0;
/**
* Returns the state of the sampler.
*/
SlicerState state() const;
};
#endif /* SLICER_H_ */
|