src/ModelParameterInfoTypes.cpp
void VectorVectorInfo::writeToR(ostream& os, adstring nm, int indent){
    if (nVIs){
        os<<nm<<"=list("<<endl;
        for (int p=1;p<nVIs;p++) {os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeToR(os); os<<","<<endl;}
        int p=nVIs;               os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeToR(os); os<<")"<<endl;
    } else {
        os<<nm<<"=NULL";
    }
}
/***************************************************************
*   Write parameters info to stream in R format.               *
***************************************************************/
Write parameters info to stream in R format.
Write parameters info to stream in R format .
void VectorVectorInfo::writeToR(ostream& os, adstring nm, int indent){
    if (nVIs){
        os<<nm<<"=list("<<endl;
        for (int p=1;p<nVIs;p++) {os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeToR(os); os<<","<<endl;}
        int p=nVIs;               os<<tb<<"'"<<p<<"'="; ppVIs[p-1]->writeToR(os); os<<")"<<endl;
    } else {
        os<<nm<<"=NULL";
    }
}
void VectorVectorInfo :: writeToR ( ostream & os , adstring nm , int indent ) { if ( nVIs ) { os << nm << " " << endl ; for ( int p = 1 ; p < nVIs ; p ++ ) { os << tb << " " << p << " " ; ppVIs [ p - 1 ] -> writeToR ( os ) ; os << " " << endl ; } int p = nVIs ; os << tb << " " << p << " " ; ppVIs [ p - 1 ] -> writeToR ( os ) ; os << " " << endl ; } else { os << nm << " " ; } }
Write parameters info to stream in R format.
Write parameters info to stream in R format .