source: trunk/test/nni_test.cc @ 1726

// $Id: nni_test.cc 1726 2009-01-15 21:15:26Z jari $

/*
  Copyright (C) 2004 Jari Häkkinen
  Copyright (C) 2005 Jari Häkkinen, Peter Johansson
  Copyright (C) 2006 Jari Häkkinen
  Copyright (C) 2007, 2008 Jari Häkkinen, Peter Johansson

  This file is part of the yat library, http://dev.thep.lu.se/yat

  The yat library is free software; you can redistribute it and/or
  modify it under the terms of the GNU General Public License as
  published by the Free Software Foundation; either version 3 of the
  License, or (at your option) any later version.

  The yat library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with yat. If not, see <http://www.gnu.org/licenses/>.
*/

#include "Suite.h"

#include "yat/utility/FileUtil.h"
#include "yat/utility/Matrix.h"
#include "yat/utility/kNNI.h"
#include "yat/utility/WeNNI.h"

#include <cmath>
#include <iostream>
#include <fstream>
#include <string>

using namespace theplu::yat;

void check_file_access(std::string& str)
{
  if (utility::FileUtil(str).permissions("r")) {
    std::cerr << "test_nni: Cannot access file " << str << std::endl;
    exit(-1);
  }
}

int main(int argc, char* argv[])
{
  test::Suite suite(argc, argv);

  unsigned int neighbours=3;
  std::string knni_data(test::filename("data/knni_matrix.data"));
  std::string knni_result(test::filename("data/knni_result.data"));
  std::string knni_weight(test::filename("data/knni_weight.data"));
  std::string wenni_data(test::filename("data/knni_matrix.data"));
  std::string wenni_result(test::filename("data/wenni_result.data"));
  std::string wenni_weight(test::filename("data/wenni_weight.data"));
  check_file_access(knni_data);
  check_file_access(knni_result);
  check_file_access(knni_weight);
  check_file_access(wenni_data);
  check_file_access(wenni_result);
  check_file_access(wenni_weight);

  // test kNNI
  std::ifstream data_stream(knni_data.c_str());
  std::ifstream weight_stream(knni_weight.c_str());
  utility::Matrix data(data_stream);
  utility::Matrix weight(weight_stream);
  utility::kNNI knni(data,weight,neighbours);
  unsigned int nonimputed=knni.estimate();
  if (!suite.equal(nonimputed,15)) {
    suite.err() << "kNNI FAILED, unexpected number of non imputed rows" << std::endl;
    suite.add(false);
  }
  std::ifstream control_stream(knni_result.c_str());
  utility::Matrix control(control_stream);
  double error_bound = 1e-11;
  for (unsigned int i=0; i<control.rows(); i++)
    for (unsigned int j=0; j<control.columns(); j++)
      if (!suite.equal_fix(knni.imputed_data()(i,j),control(i,j),error_bound)) {
        suite.err() << "kNNI FAILED, error on row " << i << " and " 
                    << "column " << j << " is" << std::endl;
        suite.add(false); // calculation result out of accepted error bounds
      }
  control_stream.close();
  data_stream.close();
  weight_stream.close();

  // test WeNNI
  data_stream.open(wenni_data.c_str());
  data=utility::Matrix(data_stream);
  weight_stream.open(wenni_weight.c_str());
  weight=utility::Matrix(weight_stream);
  utility::WeNNI wenni(data,weight,neighbours);
  nonimputed=wenni.estimate();
  if (!suite.equal(nonimputed,15)) {
    suite.err() << "WeNNI FAILED, unexpected number of non imputed rows" << std::endl;
    suite.add(false);
  }
  control_stream.open(wenni_result.c_str());
  control=utility::Matrix(control_stream);
  for (unsigned int i=0; i<control.rows(); i++)
    for (unsigned int j=0; j<control.columns(); j++)
      if (!suite.equal_fix(wenni.imputed_data()(i,j),control(i,j),error_bound)){
        suite.err() << "WeNNI FAILED, error on row " << i << " and " 
                    << "column " << j << std::endl;
        suite.add(false); // calculation result out of accepted error bounds
      }
  control_stream.close();
  data_stream.close();
  weight_stream.close();

  // test WeNNI with binary weights
  data_stream.open(knni_data.c_str());
  data=utility::Matrix(data_stream);
  weight_stream.open(knni_weight.c_str());
  weight=utility::Matrix(weight_stream);
  utility::WeNNI wenni2(data,weight,neighbours);
  nonimputed=wenni2.estimate();
  if (!suite.equal(nonimputed,15)) {
    suite.err() << "binary WeNNI FAILED, unexpected number of non imputed rows"
                << std::endl;
    suite.add(false);
  }
  control_stream.open(knni_result.c_str());
  control=utility::Matrix(control_stream);
  for (unsigned int i=0; i<control.rows(); i++)
    for (unsigned int j=0; j<control.columns(); j++)
      if (!suite.equal_fix(wenni2.imputed_data()(i,j),control(i,j),error_bound)){
        suite.err() << "WeNNI binary weight test FAILED.\nError on row " << i
                    << " and column " << j << std::endl;
        suite.add(false); // calculation result out of accepted error bounds
      }
  control_stream.close();
  data_stream.close();
  weight_stream.close();

  return suite.return_value();
}