R/inner_Add_Symbol.R

In nomogramFormula: Calculate Total Points and Probabilities for Nomogram

inner_Add_Symbol <- function(character,symbol="+"){
  if (length(character)>=2){
    for (character.i in 1:length(character)) {
      if (character.i==1){
        adj=character[1]
      }else{
        adj=paste0(adj,symbol,character[character.i])
      }
    }
  }else{
    adj=character
  }
  adj
}