Mercurial > repos > davidvanzessen > baseline_bayesian_estimation

comparison Baseline_Functions.r @ 2:94fada165724 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)]=="-"){