curtail.cc File Reference

#include "genealogy.h"
#include "generics.h"
#include "internal.h"

Include dependency graph for curtail.cc:

Go to the source code of this file.

Functions
SEXP	curtail (SEXP State, SEXP Time, SEXP Troot)
	curtail the given genealogy

Function Documentation

curtail()

SEXP curtail	(	SEXP	State,
		SEXP	Time,
		SEXP	Troot )

curtail the given genealogy

Definition at line 88 of file curtail.cc.

                                                   {
    genealogy_t A = State;
    double t, t0;
    t = *REAL(AS_NUMERIC(Time));
    t0 = *REAL(AS_NUMERIC(Troot));
    if (ISNA(t)) t = A.time();
    if (ISNA(t0)) t0 = A.timezero();
    A.curtail(t,t0);
    SEXP out;
    PROTECT(out = serial(A));
    SET_ATTR(out,install("class"),mkString("gpgen"));
    UNPROTECT(1);
    return out;
  }

Here is the call graph for this function:

Here is the caller graph for this function: