#############################################################

dichotomiseVersion1 <- function(vecteur,seuil) {

#############################################################

if (missing(seuil)) {
  cat("Paramètre seuil manquant.\n")
  cat("Rappel de la syntaxe de la fonction : \n")
  cat("    dichotomiseVersion1(vecteur,seuil) \n")
  cat("Exemple d'utilisation de la fonction : \n")
  cat("    dichotomiseVersion1(vecteur=1:20,seuil=5) \n")
  cat("La fonction renvoie un vecteur de TRUE et FALSE suivant \n")
  cat("que les éléments du vecteur sont STRICTEMENT inférieurs au seuil ou non.\n\n")
  return()
} # fin de si

# version avec une boucle et un test en si

nbe     <- length(vecteur)
vectBin <- rep(NA,nbe)
for (ide in 1:nbe) {
  if (vecteur[ide]<seuil) {
     vectBin[ide] <- TRUE
  } else {
     vectBin[ide] <- FALSE
  } # fin de si
} # fin pour ide

return( vectBin )

} # fin de fonction dichotomiseVersion1

#############################################################

dichotomiseVersion2 <- function(vecteur,seuil) {

#############################################################

if (missing(seuil)) {
  cat("\nParamètre seuil manquant.\n")
  cat("Rappel de la syntaxe de la fonction : \n")
  cat("    dichotomiseVersion2(vecteur,seuil) \n")
  cat("Exemple d'utilisation de la fonction : \n")
  cat("    dichotomiseVersion2(vecteur=1:20,seuil=5) \n")
  cat("La fonction renvoie un vecteur de TRUE et FALSE suivant \n")
  cat("que les éléments du vecteur sont STRICTEMENT inférieurs au seuil ou non.\n\n")
  return()
} # fin de si

# version sans boucle et non optimisée

nbe     <- length(vecteur)
vectBin <- rep(NA,nbe)
filtre  <- vecteur<seuil
vectBin[  filtre ] <- TRUE
vectBin[ !filtre ] <- FALSE

return( vectBin )

} # fin de fonction dichotomiseVersion2

#############################################################

dichotomiseVersion3 <- function(vecteur,seuil) {

#############################################################

if (missing(seuil)) {
  cat("\nParamètre seuil manquant.\n")
  cat("Rappel de la syntaxe de la fonction : \n")
  cat("    dichotomiseVersion3(vecteur,seuil) \n")
  cat("Exemple d'utilisation de la fonction : \n")
  cat("    dichotomiseVersion3(vecteur=1:20,seuil=5) \n")
  cat("La fonction renvoie un vecteur de TRUE et FALSE suivant \n")
  cat("que les éléments du vecteur sont STRICTEMENT inférieurs au seuil ou non.\n\n")
  return()
} # fin de si

# version optimisée et sans boucle

vectBin <- rep(FALSE,length(vecteur))
vectBin[ vecteur<seuil ] <- TRUE

return( vectBin )

} # fin de fonction dichotomiseVersion3