sum.cc File Reference

#include "node.h"
#include "genealogy.h"
#include "generics.h"
#include "internal.h"
#include <Rinternals.h>

Include dependency graph for sum.cc:

Go to the source code of this file.

Functions
SEXP	genealSum (SEXP args)
	combine genealogies

Function Documentation

genealSum()

SEXP genealSum

(

SEXP

args

)

combine genealogies

Definition at line 49 of file sum.cc.

                             {
    args = CDR(args);
    genealogy_t A(R_PosInf); // a "null" genealogy
    A.time() = R_NegInf;
    while (args != R_NilValue) {
      A += CAR(args);
      args = CDR(args);
    }
    SEXP S;
    PROTECT(S = serial(A));
    SET_ATTR(S,install("class"),mkString("gpgen"));
    UNPROTECT(1);
    return S;
  }

Here is the call graph for this function: