R/testcolonne.R

In abderrahim-ait/Projet_R-Groupe4: Generer, Resoudre une grille de Sudoku

#'@title Test une valeur si il existe dans une colonne
#'
#'
#'@param A : une matrice
#'@param j : l'indice du colonne
#'@param n ; valeur rechercher
#'@return : True si n existe deja dans la colonne, Sinon False
#'@author AIT MOULAY ABDERRAHIM
#'@examples
#' A = Suduko()
#' A= genererSoduko(A,50)
#' testcolonne (A , 2 , 3 )
#'@export
#'

testcolonne <- function (A,j,n) {


  if  ( n %in% A[,j])  return(TRUE)

  else return(FALSE)

}