10 SEXP
curtail (SEXP State, SEXP Time, SEXP Troot) {
13 t = *REAL(AS_NUMERIC(Time));
14 t0 = *REAL(AS_NUMERIC(Troot));
15 if (ISNA(t)) t = A.
time();
20 SET_ATTR(out,install(
"class"),mkString(
"gpgen"));
10 SEXP
curtail (SEXP State, SEXP Time, SEXP Troot) {
…}
28 return mkString(A.
yaml().c_str());
SEXP curtail(SEXP State, SEXP Time, SEXP Troot)
curtail the given genealogy
SEXP yaml(SEXP State)
extract a YAML description
SEXP gendat(SEXP State)
data-frame format
virtual std::string yaml(std::string tab="") const
machine-readable info
genealogy_t & prune(void)
prune the tree (drop all black balls)
slate_t & timezero(void)
view/set zero time.
slate_t & time(void)
view/set current time.
void curtail(slate_t tnew, slate_t troot)
void gendat(double *tout, int *anc, int *lin, int *sat, int *type, int *index, int *child) const
nodelist in data-frame format
genealogy_t & obscure(void)
erase all deme information
void trace_lineages(void)
SEXP serial(const TYPE &X)
binary serialization