Mercurial > repos > davidvanzessen > mutation_analysis
comparison tmp/baseline/Baseline_Functions.r @ 100:ff5be711382b draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Fri, 17 Jun 2016 05:36:32 -0400 |
| parents | a66eb1c5374c |
| children |
comparison
equal
deleted
inserted
replaced
| 99:86206431cbb0 | 100:ff5be711382b |
|---|---|
| 359 | 359 |
| 360 replaceLeadingTrailingDashesHelper <- function(x){ | 360 replaceLeadingTrailingDashesHelper <- function(x){ |
| 361 grepResults = gregexpr("-*",x) | 361 grepResults = gregexpr("-*",x) |
| 362 grepResultsPos = unlist(grepResults) | 362 grepResultsPos = unlist(grepResults) |
| 363 grepResultsLen = attr(grepResults[[1]],"match.length") | 363 grepResultsLen = attr(grepResults[[1]],"match.length") |
| 364 print(paste("x = '", x, "'", sep="")) | 364 #print(paste("x = '", x, "'", sep="")) |
| 365 x = s2c(x) | 365 x = s2c(x) |
| 366 if(x[1]=="-"){ | 366 if(x[1]=="-"){ |
| 367 x[1:grepResultsLen[1]] = "N" | 367 x[1:grepResultsLen[1]] = "N" |
| 368 } | 368 } |
| 369 if(x[length(x)]=="-"){ | 369 if(x[length(x)]=="-"){ |