Mercurial > repos > davidvanzessen > shm_csr

comparison baseline/filter.r @ 64:c6dd3215ebe0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Wed, 06 Dec 2017 08:52:00 -0500
parents 8728284105ee
children
comparison
equal deleted inserted replaced
63:8728284105ee 64:c6dd3215ebe0
4 selection = arg[3] 4 selection = arg[3]
5 output = arg[4] 5 output = arg[4]
6 print(paste("selection = ", selection)) 6 print(paste("selection = ", selection))
7 7
8 8
9 summarydat = read.table(summaryfile, header=T, sep="\t", fill=T, stringsAsFactors=F) 9 summarydat = read.table(summaryfile, header=T, sep="\t", fill=T, stringsAsFactors=F, quote = "")
10 gappeddat = read.table(gappedfile, header=T, sep="\t", fill=T, stringsAsFactors=F) 10 gappeddat = read.table(gappedfile, header=T, sep="\t", fill=T, stringsAsFactors=F, quote = "")
11 11
12 fix_column_names = function(df){ 12 fix_column_names = function(df){
13 if("V.DOMAIN.Functionality" %in% names(df)){ 13 if("V.DOMAIN.Functionality" %in% names(df)){
14 names(df)[names(df) == "V.DOMAIN.Functionality"] = "Functionality" 14 names(df)[names(df) == "V.DOMAIN.Functionality"] = "Functionality"
15 print("found V.DOMAIN.Functionality, changed") 15 print("found V.DOMAIN.Functionality, changed")