# Generate a mock data frame
peptide_data <- data.frame(Sequence = c("ACGT", "TGCA", "GATC", "CGAT"))
# Apply the function to the mock data
appearance_to_binary(peptide_data, group = "Best", percentage = 0.5)
Run the code above in your browser using DataLab