scripts/old/misc/fix_dict.R

colnames(ds) <- gsub('sample','',colnames(ds))
dict$fn <- gsub('-','',dict$fn)

ord <- match(dict$fn,names(ds))
ord[1] <- 1
ord[2] <- 2
names(ds)[ord]==dict$fn
ds <- ds[,ord]
names(ds)==dict$fn

# save
ahopki14/tcrSeqR documentation built on May 16, 2019, 6:56 p.m.