R/removeI.R

removeI <-
function(inString){
  
  tempstr<-""
  newstr<-inString
  while(tempstr != newstr){
    tempstr <- newstr
    newstr <- gsub("I\\(([^()]*)\\)","\\1",newstr,perl=TRUE)
    newstr <- gsub("^\\(([^()]*)\\)","SPAREN\\1EPAREN",newstr,perl=TRUE)
    newstr <- gsub("([^I])\\(([^()]*)\\)","\\1SPAREN\\2EPAREN",newstr,perl=TRUE)
  }  
  # get rid of words we introduced
  newstr <- gsub("SPAREN","(",newstr,perl=TRUE)
  newstr <- gsub("EPAREN",")",newstr,perl=TRUE)
  
  return (newstr)
}

Try the quantreg.nonpar package in your browser

Any scripts or data that you put into this service are public.

quantreg.nonpar documentation built on May 2, 2019, 5:40 a.m.