Mercurial > repos > davidvanzessen > clonal_sequences_in_paired_samples
diff RScript.r @ 55:43ce3ebfc9b5 draft
Uploaded
author | davidvanzessen |
---|---|
date | Tue, 13 Oct 2015 09:20:16 -0400 |
parents | ef5ffc8a6e37 |
children | c89d9e89423b |
line wrap: on
line diff
--- a/RScript.r Tue Oct 13 09:13:24 2015 -0400 +++ b/RScript.r Tue Oct 13 09:20:16 2015 -0400 @@ -233,7 +233,7 @@ second.rows.j = table(second.rows$J_Segment_Major_Gene) second.rows.j = names(second.rows.j[which.max(second.rows.j)]) - second.sum = data.frame(merge = paste(first.clone.sequence, "*", sep=""), + second.sum = data.frame(merge = first.clone.sequence, Patient = patient, Receptor = second.rows[1,"Receptor"], Sample = second.rows[1,"Sample"],