src/ModelParameterInfoTypes.cpp
void BoundedNumberVectorInfo::writeToR(ostream& os, adstring nm, int indent){
    if (nNIs){
        os<<nm<<"=list("<<endl;
        for (int p=1;p<nNIs;p++) {os<<tb<<"'"<<p<<"'="; ppNIs[p-1]->writeToR(os); os<<","<<endl;}
        int p=nNIs;               os<<tb<<"'"<<p<<"'="; ppNIs[p-1]->writeToR(os); os<<")"<<endl;
    } else {
        os<<nm<<"=NULL";
    }
}
/**
 * Write parameters info to stream as an R list.
 * 
 * @param os - the output stream
 * @param nm - the name of the R list
 * @param indent - number of tabs to indent
 */
Write parameters info to stream as an R list.

@param os - the output stream
@param nm - the name of the R list
@param indent - number of tabs to indent
Write parameters info to stream as an R list . @param os - the output stream @param nm - the name of the R list @param indent - number of tabs to indent
void BoundedNumberVectorInfo::writeToR(ostream& os, adstring nm, int indent){
    if (nNIs){
        os<<nm<<"=list("<<endl;
        for (int p=1;p<nNIs;p++) {os<<tb<<"'"<<p<<"'="; ppNIs[p-1]->writeToR(os); os<<","<<endl;}
        int p=nNIs;               os<<tb<<"'"<<p<<"'="; ppNIs[p-1]->writeToR(os); os<<")"<<endl;
    } else {
        os<<nm<<"=NULL";
    }
}
void BoundedNumberVectorInfo :: writeToR ( ostream & os , adstring nm , int indent ) { if ( nNIs ) { os << nm << " " << endl ; for ( int p = 1 ; p < nNIs ; p ++ ) { os << tb << " " << p << " " ; ppNIs [ p - 1 ] -> writeToR ( os ) ; os << " " << endl ; } int p = nNIs ; os << tb << " " << p << " " ; ppNIs [ p - 1 ] -> writeToR ( os ) ; os << " " << endl ; } else { os << nm << " " ; } }
Write parameters info to stream as an R list.
Write parameters info to stream as an R list .