src/ModelParameterInfoTypes.cpp
void BoundedVectorVectorInfo::writeFinalValsToR(ostream& os){
    if (nVIs){
        os<<"list("<<endl;
        for (int p=1;p<nVIs;p++) {os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeFinalValsToR(os); os<<","<<endl;}
        int p=nVIs;               os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeFinalValsToR(os); os<<")";
    } else {
        os<<"NULL";
    }
}
/**
 * Writes final values to an output stream as an R list of vectors.
 * 
 * @param os - the output stream
 */
Writes final values to an output stream as an R list of vectors.

@param os - the output stream
Writes final values to an output stream as an R list of vectors . @param os - the output stream
void BoundedVectorVectorInfo::writeFinalValsToR(ostream& os){
    if (nVIs){
        os<<"list("<<endl;
        for (int p=1;p<nVIs;p++) {os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeFinalValsToR(os); os<<","<<endl;}
        int p=nVIs;               os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeFinalValsToR(os); os<<")";
    } else {
        os<<"NULL";
    }
}
void BoundedVectorVectorInfo :: writeFinalValsToR ( ostream & os ) { if ( nVIs ) { os << " " << endl ; for ( int p = 1 ; p < nVIs ; p ++ ) { os << tb << " " << p << " " ; ppVIs [ p - 1 ] -> writeFinalValsToR ( os ) ; os << " " << endl ; } int p = nVIs ; os << tb << " " << p << " " ; ppVIs [ p - 1 ] -> writeFinalValsToR ( os ) ; os << " " ; } else { os << " " ; } }
Writes final values to an output stream as an R list of vectors.
Writes final values to an output stream as an R list of vectors .