- PROTECT(listParams = allocVector(VECSXP, 5));
- char* lnames[5] = {"phi", "rho", "pi", "LLF", "S"}; //lists labels
- PROTECT(listNames = allocVector(STRSXP,5));
- for (int i=0; i<5; i++)
+ int nouts = 6;
+ PROTECT(listParams = allocVector(VECSXP, nouts));
+ char* lnames[6] = {"phi", "rho", "pi", "LLF", "S", "affec"}; //lists labels
+ PROTECT(listNames = allocVector(STRSXP,nouts));
+ for (int i=0; i<nouts; i++)