From 99bd019932ede71b49857c66818865870b78dde0 Mon Sep 17 00:00:00 2001
From: Pierre <ratinaud@univ-tlse2.fr>
Date: Tue, 29 Jan 2013 00:17:57 +0100
Subject: [PATCH] ...

---
 Rscripts/afc_graph.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Rscripts/afc_graph.R b/Rscripts/afc_graph.R
index 5b12163..eb7da8c 100644
--- a/Rscripts/afc_graph.R
+++ b/Rscripts/afc_graph.R
@@ -77,7 +77,7 @@ if ( qui == 3 ) {
         ry <- range(table.in[,2], na.rm = TRUE)
         rz <- range(table.in[,3], na.rm = TRUE)
     }
-    if (exists(afctable)) {
+    if (exists('afctable')) {
         eff <- rowSums(afctable)
     } else {
         eff <- afctable$rowmass
-- 
2.7.4