[Adephylo-commits] r198 - pkg/R

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

Author: sdray
Date: 2013-11-22 22:17:54 +0100 (Fri, 22 Nov 2013)
New Revision: 198

Modified:
   pkg/R/orthogram.R
Log:
Upate calls to ade4 methods

Modified: pkg/R/orthogram.R
===================================================================
--- pkg/R/orthogram.R	2013-11-20 20:04:40 UTC (rev 197)
+++ pkg/R/orthogram.R	2013-11-22 21:17:54 UTC (rev 198)
@@ -185,14 +185,14 @@
         nclass <- as.integer (nrepet/25)
         nclass <- min(c(nclass,40))
     }
-    plot.randtest (as.randtest (w$R2Max[-1],w$R2Max[1],call=match.call()),main = "R2Max",nclass=nclass)
+    plot(as.randtest (w$R2Max[-1],w$R2Max[1],call=match.call()),main = "R2Max",nclass=nclass)
     if (posinega !=0) {
-        plot.randtest (as.randtest (w$ratio[-1],w$ratio[1],call=match.call()),main = "Ratio",nclass=nclass)
+        plot(as.randtest (w$ratio[-1],w$ratio[1],call=match.call()),main = "Ratio",nclass=nclass)
     } else {
-        plot.randtest (as.randtest (w$SkR2k[-1],w$SkR2k[1],call=match.call()),main = "SkR2k",nclass=nclass)
+        plot(as.randtest (w$SkR2k[-1],w$SkR2k[1],call=match.call()),main = "SkR2k",nclass=nclass)
     }
-    plot.randtest (as.randtest (w$Dmax[-1],w$Dmax[1],call=match.call()),main = "DMax",nclass=nclass)
-    plot.randtest (as.randtest (w$SCE[-1],w$SCE[1],call=match.call()),main = "SCE",nclass=nclass)
+    plot(as.randtest (w$Dmax[-1],w$Dmax[1],call=match.call()),main = "DMax",nclass=nclass)
+    plot(as.randtest (w$SCE[-1],w$SCE[1],call=match.call()),main = "SCE",nclass=nclass)
 
     w$param <- w$observed <- w$vecpro <- NULL
     w$phylo95 <- w$sig025 <- w$sig975 <- NULL