phylopomp
Phylodynamics for POMPs
Loading...
Searching...
No Matches
scale.cc File Reference
#include "genealogy.h"
#include "generics.h"
#include "internal.h"
#include <R.h>
#include <Rdefines.h>
Include dependency graph for scale.cc:

Go to the source code of this file.

Functions

SEXP genealScaleShift (SEXP State, SEXP Scale, SEXP Origin)
 rescale and/or reset origin
 

Function Documentation

◆ genealScaleShift()

SEXP genealScaleShift ( SEXP State,
SEXP Scale,
SEXP Origin )

rescale and/or reset origin

Definition at line 11 of file scale.cc.

11 {
12 genealogy_t A(State);
13 slate_t scale = *REAL(AS_NUMERIC(Scale));
14 slate_t origin = *REAL(AS_NUMERIC(Origin));
15 SEXP S;
16 A.time_rescale(scale,origin);
17 PROTECT(S = serial(A));
18 SET_ATTR(S,install("class"),mkString("gpgen"));
19 UNPROTECT(1);
20 return S;
21 }
Encodes a genealogy.
Definition genealogy.h:19
SEXP serial(const TYPE &X)
binary serialization
Definition generics.h:33
double slate_t
Definition internal.h:53
#define S
Definition seirs_pomp.c:37
Here is the call graph for this function: