set.seed(42)
toy_data <- simulateToyData(sample_size = 500)
# Get neighborhood around first clone sequence
nbd <-
getNeighborhood(
toy_data,
seq_col = "CloneSeq",
target_seq = "GGGGGGGAATTGG"
)
head(nbd)
Run the code above in your browser using DataLab