Displaying 1 result from an estimated 1 matches for "zdp_out_r".
2015 Feb 05
2
Invalid read of size 8
...for(j=i;j<nLC;j++)
{
Rprintf("%f ", MatCovInv[k][i*nLC+j]);
}
Rprintf("\n");
}
Rprintf("\n\n");
}
After that i define an R variable
int nProtect =0;
SEXP zDP_out_r;
PROTECT(zDP_out_r = allocMatrix(INTSXP, nT, nSamples_save));
nProtect++;
int *zDP_out_P = INTEGER(zDP_out_r);
and using the same syntax as before
for(k=0;k<K+1;k++)
{
Rprintf("Later Cov Extra %i \n",k);
for(i=0;i<nLC;i++)...