Skip to content
Snippets Groups Projects
quick.cc 833 B
Newer Older
Stephen Smith's avatar
Stephen Smith committed
/*  quick.cc

    Mark Woolrich, FMRIB Image Analysis Group

    Copyright (C) 1999-2000 University of Oxford  */

/*  CCOPYRIGHT  */

#include <iostream>
#include <fstream>
#include <iomanip>
#include <strstream>
Mark Jenkinson's avatar
Mark Jenkinson committed
#define WANT_STREAM
#define WANT_MATH

#include "miscmaths.h"
Mark Woolrich's avatar
Mark Woolrich committed
#include "t2z.h"
//#include "libprob.h"
Mark Jenkinson's avatar
Mark Jenkinson committed

using namespace MISCMATHS;

int main(int argc, char *argv[])
{
  try{
Mark Woolrich's avatar
Mark Woolrich committed
    Matrix X = read_vest("/usr/people/woolrich/matlab/vbbabe/data/design2.mat").t();
Mark Woolrich's avatar
Mark Woolrich committed
 
    ColumnVector Y = read_vest("/usr/people/woolrich/matlab/vbbabe/data/sdf2.mat").t();
 
    ColumnVector m_B;
    SymmetricMatrix ilambda_B;
Mark Woolrich's avatar
Mark Woolrich committed
    glm_vb(X, Y, m_B, ilambda_B, 30);
Mark Jenkinson's avatar
Mark Jenkinson committed

Mark Woolrich's avatar
Mark Woolrich committed
    write_ascii_matrix(m_B,"/usr/people/woolrich/matlab/vbbabe/data/m_B");
    
Mark Jenkinson's avatar
Mark Jenkinson committed
  }
  catch(Exception p_excp) 
    {
      cerr << p_excp.what() << endl;
    }
  return 0;
}