Displaying 1 result from an estimated 1 matches for "lib_filterinvws".
2007 Feb 13
2
anyone has C++ STL classes stability issue if used with R
...xel(const Pixel& px) { x = px.x; y = px.y; intens = px.intens; };
Pixel(int i, int j, double val): x(i), y(j), intens(val) {};
};
bool operator < (const Pixel & a, const Pixel & b) {
return a.intens < b.intens;
};
typedef priority_queue<Pixel> PixelPrQueue;
SEXP
lib_filterInvWS (SEXP x) {
SEXP res;
int i, j, index;
double val;
PixelPrQueue pq;
int nx = INTEGER ( GET_DIM(x) )[0];
int ny = INTEGER ( GET_DIM(x) )[1];
int nz = INTEGER ( GET_DIM(x) )[2];
int nprotect = 0;
PROTECT ( res = Rf_duplicate(x) );
nprotect++;
/...