Mercurial > repos > davidvanzessen > shm_csr
view merge.r @ 28:c0ecc31829bd draft
Uploaded
author | davidvanzessen |
---|---|
date | Wed, 07 Dec 2016 08:17:09 -0500 |
parents | c33d93683a09 |
children |
line wrap: on
line source
args <- commandArgs(trailingOnly = TRUE) input.1 = args[1] input.2 = args[2] fields.1 = args[3] fields.2 = args[4] field.1 = args[5] field.2 = args[6] output = args[7] dat1 = read.table(input.1, header=T, sep="\t", quote="", stringsAsFactors=F, fill=T, row.names=NULL) if(fields.1 != "all"){ fields.1 = unlist(strsplit(fields.1, ",")) dat1 = dat1[,fields.1] } dat2 = read.table(input.2, header=T, sep="\t", quote="", stringsAsFactors=F, fill=T, row.names=NULL) if(fields.2 != "all"){ fields.2 = unlist(strsplit(fields.2, ",")) dat2 = dat2[,fields.2] } dat3 = merge(dat1, dat2, by.x=field.1, by.y=field.2) write.table(dat3, output, sep="\t",quote=F,row.names=F,col.names=T)