R/g.R

In l-k-11235/projetMetiers: Le package du projet R dy M1 SSD 2019

g<-function(d,nom1,nom2,nb){
#'g
#'
#' La fonction g est utlisée pour la construction de la classe comp_reg.
#' @param d sortie de la fonction f
#' @param nom1 nom de région
#' @param nom2 nom de région
#' @param nb nombre de métiers sélectionnés dans chaque région. Le critère de sélection
#' est le pourcentage de projets de recrutement.
#'
#'@return dataframe
#'@import dplyr
#'@import utils
#'@importFrom utils head
#'@examples g(f("CORSE","BRETAGNE"),"CORSE","BRETAGNE",2)
#'@export
#'



  d1=dplyr::filter(d,NOM_REG==nom1)
  d1=d1[order(d1$pct,decreasing = TRUE),]
  d1=head(d1,nb)

  d2=dplyr::filter(d,NOM_REG==nom2)
  d2=d2[order(d2$pct,decreasing = TRUE),]
  d2=head(d2,nb)
  print(rbind(d1,d2))

}