Ajout donneuses/porteuses
This commit is contained in:
@@ -95,7 +95,7 @@ format_duration <- function(seconds) {
|
||||
save_data_vaches <- function(vaches){
|
||||
tabfinal <- vaches %>%
|
||||
select(
|
||||
cheptelDetenteur, anim, nom, nom_pere, embryon,
|
||||
cheptelDetenteur, anim, nom, nom_pere, embryon, donneuse, porteuse,
|
||||
tempsprod, age_years, ecowcarr, rg_carr,
|
||||
ptgV, agevel1, ivv1, ivv2Brut,
|
||||
prol, mort, txrepros, nbpp,
|
||||
@@ -108,7 +108,7 @@ save_data_vaches <- function(vaches){
|
||||
|
||||
# Renomme les colonnes pour correspondre aux noms des champs dans la table ecow_vaches
|
||||
colnames(tabfinal) <- c(
|
||||
"cheptel", "num_vache", "nom_vache", "pere", "isu", "pourc_vie_productive", "age_annees", "note_ecow_carr", "rang_carr", "pointage_vache", "age_1_velage_m", "ivv1_j",
|
||||
"cheptel", "num_vache", "nom_vache", "pere", "isu", "donneuse", "porteuse", "pourc_vie_productive", "age_annees", "note_ecow_carr", "rang_carr", "pointage_vache", "age_1_velage_m", "ivv1_j",
|
||||
"ivv2plus_j", "prolificite_pourc", "mortalite_av_sevr_pourc", "pourc_produits_repros", "nb_petits_produits", "pourc_velages_tranquilles", "pn_males_kg",
|
||||
"pn_femelles_kg", "p120_males_kg", "p120_femelles_kg", "p210_males_kg", "p210_femelles_kg", "pointage_produits", "moy_notes_ecow_campagne", "rang_campagne"
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user