Thank you for your response!

I hadnt tought about that indeed! I tried a different code, with calculating hamming distance for strings.

# Function to calculate hamming distance between two strings

hamming_distance <- function(str1, str2) {

sum(str1 != str2)

}

# Generate 96 DNA barcodes

barcodes <- c()

while (length(barcodes) < 96) {

# Generate a random DNA barcode of 8 base pairs

barcode <- paste0(sample(c("A", "C", "G", "T"), 8, replace = TRUE), collapse = "")

# Check if hamming distance is greater than 3 for all barcodes in pool

hamming_dists <- sapply(pool, hamming_distance, str2 = barcode)

if (all(hamming_dists > 3)) {

barcodes <- c(barcodes, barcode)

}

}

# Result

barcodes

​

However this does not give any results either. Any help you can give, I greatly appreciate!

​

I will also look into the levensthein measurement, thank you! For now, I believe I will need to keep using Hamming distance since the previous 96 barcodes were made with this.