R/id.15to18.R

id.15to18=function(id.15){

  if(length(id.15)==1){
    rst=id.15to18.single(id.15)
  }
  if(length(id.15)>1){
    rst=id.15to18.single(id.15[1])
    for(i in 2:length(id.15)){
      rst=c(rst,id.15to18.single(id.15[i]))
    }
  }
  return(rst)
}

Try the IDCard package in your browser

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

IDCard documentation built on May 2, 2019, 1:18 p.m.