geneal.cc

Go to the documentation of this file.

#include "genealogy.h"
#include "generics.h"
#include "internal.h"
 
#include <R.h>
#include <Rdefines.h>
 
extern "C" {

  SEXP geneal (SEXP State) {
    SEXP S;
    PROTECT(S = serial(genealogy_t(State)));
    SET_ATTR(S,install("class"),mkString("gpgen"));
    UNPROTECT(1);
    return S;
  }
 
}