search for: nsamples_save

...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++) { for(j=i;j<nLC;j++) {...

...= INTEGER(burnin_r)[0]; int thin = INTEGER(thin_r)[0]; int ad_start = INTEGER(ad_start_r)[0]; int ad_end = INTEGER(ad_end_r)[0]; double *ad_esp_P = REAL(ad_esp_r); double *acceptratio_P = REAL(acceptratio_r); double *H_P = REAL(H_r); // int nSamples_save = INTEGER(nSamples_save_r)[0]; // PRIOR double *prior_alpha = REAL(prior_alpha_r); double M_alpha = prior_alpha[0]; double sigma2_alpha = prior_alpha[1]; double *prior_rho = REAL(prior_rho_r); double a_rho = prior_rho[0]; double b_rho = prior_rho[1]; double...