R code for CITE-seq/TCR paper