R/getPos.fnc.R

Defines functions `getPos.fnc`

`getPos.fnc` <-
function(vec, pos) {
  if (pos == "end") return(length(vec))
  else {
    if (pos=="beg") return(1)
    else return(floor(length(vec)/2))
  }
}

Try the languageR package in your browser

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

languageR documentation built on May 2, 2019, 10:02 a.m.