Merge a table of pig IDs and breeds into a visit table from
prep_visits().
add_breed(visits, breeds, id = "responder", breed = "breed", verbose = 1)Visit table from prep_visits().
A data frame with one row per pig: the pig ID and its breed (or line).
Name of the ID column in breeds. It is matched to the
transponder number responder_raw, then to responder. Unidentified
visits get no breed. Default "responder".
Name of the breed column in breeds. Default "breed".
0 (silent), 1 (summary, default) or 2 (details).
The visit table with a breed column (character, NA for
unidentified visits and for pigs not found in breeds). Attributes of
visits are kept.
visits <- prep_visits(nedap, verbose = 0)
# a breed table from your own herd records, one row per pig
pigs <- unique(visits[identified == TRUE, responder])
breeds <- data.frame(responder = pigs, breed = rep(c("YY", "LL"), length.out = length(pigs)))
visits <- add_breed(visits, breeds)
#> ✔ Breed added for 30 of 30 pigs: LL (15), YY (15)
table(unique(visits[identified == TRUE, .(responder, breed)])$breed)
#>
#> LL YY
#> 15 15