### (gH)   -_-  co-occur4.r

# on se contente de tester le nombre de paramètres avant
# d'appeler la fonction lue dans le fichier co-occur.r

#  exemple d'utilisation du script :
#     Rscript --encoding=latin1 --vanilla co-occur4.r elf2Data.txt elf2Data.xml

## 1. test des arguments, aide éventuelle

args <- commandArgs(trailingOnly = TRUE)
argc <- length(args)

if (argc<2) {
  cat("\n")
  cat("Nombre de paramètres incorrect.\n")
  cat("Vous devez fournir un nom de fichier de données et un fichier XML de configuration.\n\n")
  cat("Exemple : Rscript --vanilla co-occur4.r elf2Data.txt elf2Data.xml\n\n")
  cat("Consulter http://forge.info.univ-angers.fr/~gh/Decra/co-occur.php pour le format des données.\n")
  cat("\n")
  stop(-1)
} # fin si sur argc

## 2. vérification de l'existence des fichiers

ficDon <- args[1]
ficXml <- args[2]

## 3. lecture de la fonction

source("co-occur.r",encoding="latin1")

## 4. appel de la fonction

coOccurMarges(ficDon,ficXml)