Commit b5b19c29 authored by Antoine Lucas's avatar Antoine Lucas
Browse files

remove printf

parent 234adb4c
Wed Sep 11 2013
* remove printf in C/c++ code
Sun Nov 06 2011: 0.8-6
* fix distances pearson and correlation (problem with vector 0,0,0...)
* add new distances: absolute pearson, absolute correlation
......
Package: amap
Version: 0.8-7
Date: 2010-11-07
Suggests: Biobase
Title: Another Multidimensional Analysis Package
Author: Antoine Lucas
Maintainer: Antoine Lucas <antoinelucas@gmail.com>
......
\name{plot.acp}
\name{plot}
\alias{plot.acp}
\alias{biplot.acp}
\alias{plot2}
......
......@@ -4,7 +4,7 @@
* \brief Robust principal component analysis
*
* \date Created : 06/11/02
* \date Last Modified : Time-stamp: <2005-10-09 13:50:13 antoine>
* \date Last Modified : Time-stamp: <2013-09-11 20:15:45 antoine>
*
* This Message must remain attached to this source code at all times.
* This source code may not be redistributed, nor may any executable
......@@ -20,6 +20,7 @@
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include "R.h"
#ifndef M_PIl
#define M_PIl 3.1415926535897932384626433832795029L /* pi */
#endif
......@@ -146,7 +147,7 @@ void W(double *x,double *h,double *d,int *n,int *p,char **kernel,double *res, in
if(delta == NULL || temp == NULL )
{
printf("AMAP: Not enought system memory \n");
Rprintf("AMAP: Not enought system memory \n");
*result = 2;
return;
}
......
......@@ -8,7 +8,7 @@
#include "hclust_T.h"
#include <stdio.h>
#include "R.h"
namespace hclust_T
{
......@@ -45,7 +45,7 @@ namespace hclust_T
d = (T*) malloc (len * sizeof(T));
if(d == NULL )
{
printf("AMAP: Not enought system memory to allocate matrix distance\n");
Rprintf("AMAP: Not enought system memory to allocate matrix distance\n");
*result = 2;
return;
}
......@@ -55,7 +55,7 @@ namespace hclust_T
distance_T<T>::distance(x,nr,nc,d,diag,method,nbprocess,&flag,-1);
if(flag == 0)
{
printf("AMAP: Unable to compute Hierarchical Clustering: missing values in distance matrix\n");
Rprintf("AMAP: Unable to compute Hierarchical Clustering: missing values in distance matrix\n");
*result = 3;
return;
}
......@@ -97,7 +97,7 @@ namespace hclust_T
flag = (short int*) malloc (*n * sizeof(short int));
if(nn == NULL || disnn == NULL || flag == NULL )
{
printf("AMAP: Not enought system memory \n");
Rprintf("AMAP: Not enought system memory \n");
*result = 2;
return;
}
......@@ -386,7 +386,7 @@ namespace hclust_T
iib = (int*) malloc (*n * sizeof(int));
if(iia == NULL || iib == NULL )
{
printf("AMAP: Not enought system memory \n");
Rprintf("AMAP: Not enought system memory \n");
*result = 2;
return;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment