R/getKnots.fnc.R

Defines functions `getKnots.fnc`

`getKnots.fnc` <-
function(colnms, xlb) {
  pos = grep(paste("rcs\\(", xlb, ",", sep=""), colnms)
  tmp = strsplit(colnms[pos[1]], ")")[[1]][1]
  return(as.numeric(strsplit(tmp, " ")[[1]][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.