[Adephylo-commits] r147 - pkg/src

[noreply at r-forge.r-project.org]

Author: jombart
Date: 2010-03-10 15:46:45 +0100 (Wed, 10 Mar 2010)
New Revision: 147

Modified:
   pkg/src/sptips.c
Log:
Testing... now getting a seg fault.


Modified: pkg/src/sptips.c
===================================================================
--- pkg/src/sptips.c	2010-03-10 14:37:07 UTC (rev 146)
+++ pkg/src/sptips.c	2010-03-10 14:46:45 UTC (rev 147)
@@ -337,3 +337,19 @@
 
 } /* end sptips */
 
+
+
+
+/* TESTING */
+/*
+library(adephylo)
+tre=rtree(10)
+plot(tre)
+nodelabels()
+tiplabels()
+
+res <- resId <- integer(1e5)
+resSize=as.integer(1e5)
+
+.C("spalltips", as.integer(tre$edge[,1]), as.integer(tre$edge[,2]), nrow(tre$edge), as.integer(nTips(tre)), res, resId, resSize)
+*/