# Example data
db <- data.frame(sequence_id=LETTERS[1:4],
sequence_alignment=c("CCCCTGGG", "CCCCTGGN", "NAACTGGN", "NNNCTGNN"),
germline_alignment="CCCCAGGG",
v_call="Homsap IGKV1-39*01 F",
j_call="Homsap IGKJ5*01 F",
junction_length=2,
clone_id=1,
locus=rep("IGH", length=4),
c_call=c("IGHM", "IGHG", "IGHG", "IGHA"),
duplicate_count=1:4,
stringsAsFactors=FALSE)
# Without end masking
makeChangeoClone(db, text_fields="c_call", num_fields="duplicate_count")
# With end masking
makeChangeoClone(db, max_mask=3, text_fields="c_call", num_fields="duplicate_count")
Run the code above in your browser using DataLab