R/xRow.R

Defines functions xRow

Documented in xRow

xRow <- function(x) {

  x.name <- names(x[])

  x.num <- suppressWarnings(as.numeric(x.name)) 

  for (i in 1:length(x))
    if (!is.na(x.num[i])) x.name[i] <- paste("Row", x.name[i])

  return(x.name)

}

Try the lessR package in your browser

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

lessR documentation built on Nov. 12, 2023, 1:08 a.m.