Clips 2024 QA/QC

Month	Avg_ClipWeight
July	16.26580
May	19.54845

Checking for duplicate rows

duplicates <- Clippings_May_and_July_2024 %>% filter(duplicated(.))

if (nrow(duplicates) > 0) {
  print("Duplicate rows found:")
  print(duplicates)
} else {
  print("No duplicate rows found.")
}

## [1] "No duplicate rows found."

May and July 2024 clip weights (histogram)

## NULL