Displaying 1 result from an estimated 1 matches for "outcand".
Did you mean:
outband
2015 Nov 03
1
Fwd: Rcpp sugar dpois
...so patient to explain me why should it be like that?
Thaks a lot, Enrico
#include <Rcpp.h>
using namespace Rcpp;
NumericVector pcUtildedatoU(NumericVector z, double j, double par)
{
int l_z=z.size();
NumericVector out(l_z);
for (int w=0; w<= (l_z-1); w++)
{
double outcand=0;
double d=z[w];
if (d >= j)
outcand=1;
else if (d>= -j)
{
for(int i=-j; i<=d; i+=2)
outcand+= R::dpois((i+j)/2, par,false)* R::dpois((j-i)/2,
par,false);
outcand=outcand/R::dpois(j, 2*par,false);...