R/read.item.numeric.R

read.item.numeric  <-  function(data, code){
  line  <-	data[grep(code, data)]
  if (!is.null(line)){
    return(as.numeric(substring( line, regexpr(" ", line) + 1, nchar(line))))
  }else{
    return(0.0)
  }
}

Try the HITXML package in your browser

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

HITXML documentation built on May 2, 2019, 5:25 p.m.