1 /******************************************************************
2   This file is a part of eco: R Package for Fitting Bayesian Models
3   of Ecological Inference for 2x2 Tables
4   by Kosuke Imai and Ying Lu
5   Copyright: GPL version 2 or later.
6 *******************************************************************/
7 
8 void SWP( double **X, int k, int size);
9 void dinv(double **X, int size, double **X_inv);
10 void dinv2D(double *X, int size, double *X_inv,char* emsg);
11 void dinv2D_sym(double *X, int size, double *X_inv,char* emsg);
12 void dcholdc(double **X, int size, double **L);
13 double ddet(double **X, int size, int give_log);
14 double ddet2D(double **X, int size, int give_log);
15 void dcholdc2D(double *X, int size, double *L);
16 void matrixMul(double **A, double **B, int r1, int c1, int r2, int c2, double **C);
17