remove printf

Changes

 
+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

DESCRIPTION

 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>

man/plot.acp.Rd

-\name{plot.acp}
+\name{plot}
 \alias{plot.acp}
 \alias{biplot.acp}
 \alias{plot2}

src/acprob.c

@@ -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;
     }

src/hclust_T.cpp

@@ -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;
       }