00001
00002 #include <R.h>
00003 #include <Rmath.h>
00004 #include <Rinternals.h>
00005
00006intaindx(int i, int j, int m) {
00007 /*
00008 m x n matrix. (i+1,j+1)
00009 */
00010 return(j * m + i);
00011 }
Generated on Thu Jun 9 14:18:16 2005 for party by
1.4.2