11 PROTECT(X = AS_CHARACTER(X));
12 PROTECT(T0 = AS_NUMERIC(T0));
13 PROTECT(Tf = AS_NUMERIC(Tf));
14 double t0 = *REAL(T0);
15 double tf = *REAL(Tf);
17 std::string x = CHAR(STRING_ELT(X,0));
genealogy_t & parse(const std::string &s, slate_t t0, node_t *p=0)
Parse a Newick string and create the indicated genealogy.
slate_t & time(void)
view/set current time.
void curtail(slate_t tnew)
void trace_lineages(void)
SEXP serial(const TYPE &X)
binary serialization
SEXP parse_newick(SEXP X, SEXP T0, SEXP Tf)