Ajout donneuses/porteuses

2026-06-12 15:51:04 +02:00
parent 1df8897e88
commit ea76a07d61
4 changed files with 14 additions and 6 deletions
@@ -43,7 +43,11 @@ calcul_ecow_by_chep <- function(cheptel, step = 3) {
      taureaux %>% select(anim, nom_pere = nom),
      by = c("pereGenetique" = "anim")
    )
-  
+
+  # Ajout info donneuses
+  donneuses <- cheptel_ecow$donneuses
+  vaches$donneuse <- vaches$anim %in% donneuses
+
  # Récupère les produits ajout des données manquantes
  produits_cheptel <- add_data_ecow(cheptel_ecow$produits, czhbc)
  
@@ -54,7 +58,7 @@ calcul_ecow_by_chep <- function(cheptel, step = 3) {
  # Récupère les effets cheptel # TODO A REVOIR AVEC LAURENA
  effets <- get_effets_cheptel(produits_vaches)
  rapport_MF <- effets$rapport_MF
-  
+
  prod_vaches_corr <- apply_effet_chep(produits_vaches, effets$effets_chep, effets$rapport_MF)
  
  # On récupère les coefficients de pondération pour les pointages au sevrage