Displaying 1 result from an estimated 1 matches for "rpmiss".
Did you mean:
remiss
2011 Oct 24
2
C function is wrong under Windows 7
...rfchr, rsign, nsign);
SEXP phit;
PROTECT(phit = allocVector(REALSXP, nfchr));
double *rphit;
rphit = REAL(phit);
for(i = 0; i < nfchr; i++) rphit[i] = 0.0;
getPhit(rfchr, rsign, nsign, nr, rphit);
cumsum(rphit, nfchr);
SEXP pmiss;
PROTECT(pmiss = allocVector(REALSXP, nfchr));
double *rpmiss;
rpmiss = REAL(pmiss);
for(i = 0; i < nfchr; i++) rpmiss[i] = 0.0;
getPmiss(rsign, nfchr, nsign, rpmiss);
cumsum(rpmiss, nfchr);
for (i = 0; i < nfchr; ++i) {
res[i] = rphit[i] - rpmiss[i];
}
UNPROTECT(5);
return es;
}
Could you please help me to find out what I am doing wrong...