11 int main(
int argc,
char *argv[]) {
16 "suppressMessages(require(stats));" 17 "swisssum <- summary(lm(Fertility ~ . , data = swiss));" 22 Rcpp::NumericMatrix M( (SEXP) R.
parseEval(
"swcoef <- coef(swisssum)"));
23 Rcpp::StringVector cnames( (SEXP) R.
parseEval(
"colnames(swcoef)"));
24 Rcpp::StringVector rnames( (SEXP) R.
parseEval(
"rownames(swcoef)"));
26 std::cout <<
"\n\nAnd now from C++\n\n\t\t\t";
27 for (
int i=0; i<cnames.size(); i++) {
28 std::cout << std::setw(11) << cnames[i] <<
"\t";
30 std::cout << std::endl;
31 for (
int i=0; i<rnames.size(); i++) {
32 std::cout << std::setw(16) << rnames[i] <<
"\t";
33 for (
int j=0; j<cnames.size(); j++) {
34 std::cout << std::setw(11) << M(i,j) <<
"\t";
36 std::cout << std::endl;
38 std::cout << std::endl;
void parseEvalQ(const std::string &line)
int parseEval(const std::string &line, SEXP &ans)
int main(int argc, char *argv[])