Skip to main content

Browse the archive

Revision 1f43af8328d17a1e798556dff65148fe3dcc9dd0 authored by Frank E Harrell Jr on 02 March 2014, 00:00:00 UTC, committed by Gabor Csardi on 02 March 2014, 00:00:00 UTC 
version 3.14-3
1 parent bfdcc04
Raw File
nstr.s 
nstr <- function(string, times) {
  if(!is.atomic(string))
    stop("argument string must be an atomic vector")

  if(!is.numeric(times))
    stop("len must be a numeric vector")

  if(length(string) == 0)
    return(NULL)

  if(length(times) == 0)
    return(character(0))

  return(.Call("do_nstr", as.character(string), as.integer(times)))
}
back to top