10 int main(
int argc,
char *argv[]) {
15 std::string txt =
"suppressMessages(library(fPortfolio))";
18 txt =
"M <- as.matrix(SWX.RET); print(head(M)); M";
22 << M.nrow() <<
" rows and " 23 << M.ncol() <<
" cols" << std::endl;
26 Rcpp::CharacterVector cnames = R.
parseEval(txt);
28 for (
int i=0; i<M.ncol(); i++) {
29 std::cout <<
"Column " << cnames[i] <<
" in row 42 has " << M(42,i) << std::endl;
32 }
catch(std::exception& ex) {
33 std::cerr <<
"Exception caught: " << ex.what() << std::endl;
35 std::cerr <<
"Unknown exception caught" << std::endl;
void parseEvalQ(const std::string &line)
int parseEval(const std::string &line, SEXP &ans)
int main(int argc, char *argv[])