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 June 10, 2025, 9:08 a.m.