R/CompNoms.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

# ' compare les nomes pr?sents dans deux vecteurs
CompNoms <- function(Tnames = Tnames, Fnames = Fnames) {
  nbbon = sum(duplicated(c(Tnames, Fnames)))
  max = length(Tnames)
  nbtrop = length(Fnames) - nbbon
  mank = max - nbbon
  return(list(nbbon = nbbon, max = max, nbtrop = nbtrop, mank = mank))
}