Displaying 1 result from an estimated 1 matches for "lengthh".
Did you mean:
length
2003 Sep 19
1
Weird problem with my code....
...led using R CMD SHLIB,
then dyn.load("CScalFn.so") )
Many thanks,
Guy
----------------------
#include <R.h>
#define MAX(a,b) ( (a) < (b) ? (b) : (a))
#define MIN(a,b) ( (a) < (b) ? (a) : (b))
void CScalFn(Sfloat *v, Sfloat *ans, Sint *res, Sfloat *H, Sint *lengthH)
{
int k,n;
Sfloat sum;
Sint b,e;
for(n=0; n< *res; ++n) {
sum = 0.0;
b = MAX(0, (n+1- *lengthH)/2);
e = MIN(*res, n/2);
/* if (n < 100) Rprintf("%d %d\n", b,e); */
for(k=b; k<= e; ++k) {
sum += *(H+n-2*k) * *(v+k);...