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