Mercurial > repos > davidvanzessen > baseline_bayesian_estimation
comparison Baseline_Functions.r @ 2:94fada165724 draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Wed, 13 Aug 2014 07:32:38 -0400 |
| parents | d685e7ba0ed4 |
| children |
comparison
equal
deleted
inserted
replaced
| 1:e8dd8474aecb | 2:94fada165724 |
|---|---|
| 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 x = s2c(x) | 365 x = s2c(x) |
| 365 if(x[1]=="-"){ | 366 if(x[1]=="-"){ |
| 366 x[1:grepResultsLen[1]] = "N" | 367 x[1:grepResultsLen[1]] = "N" |
| 367 } | 368 } |
| 368 if(x[length(x)]=="-"){ | 369 if(x[length(x)]=="-"){ |