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