diff --git a/R/desc_groupe.R b/R/desc_groupe.R
index 0cc9c74..dfc120c 100644
--- a/R/desc_groupe.R
+++ b/R/desc_groupe.R
@@ -206,12 +206,13 @@ desc_groupe <- function(table, groupe, param = character(0), html=NULL, titre=NU
           test <<- "f"
           tryCatch(
           {
-            fisher.test(table[[var]],modulo,workspace)$p.value
+            fisher.test(table[[var]],modulo,workspace=1e+08)$p.value
           },
           error=function(e)
           {
-            test <<- "X(f failed)"
-            chisq.test(table[[var]],modulo)$p.value
+            #test <<- "X(f failed)"
+            #chisq.test(table[[var]],modulo)$p.value
+            fisher.test(table[[var]],modulo,simulate.p.value = T,B = 1e+06)$p.value
           })
         },
         error=function(e)
diff --git a/cosmosR.rproj b/cosmosR.rproj
index 88c6159..c85962f 100644
--- a/cosmosR.rproj
+++ b/cosmosR.rproj
@@ -13,6 +13,6 @@ RnwWeave: Sweave
 LaTeX: pdfLaTeX
 
 BuildType: Package
-PackageInstallArgs: --no-multiarch
+PackageInstallArgs: --no-multiarch --with-keep.source
 PackageCheckArgs: --as-cran
 PackageRoxygenize: rd,collate,namespace