R/is.f.R

In datacamp/R2BayesX: Estimate Structured Additive Regression Models with 'BayesX'

is.f <-
function(x)
{
  if(length(x)) {
    n <- length(x)
    issm <- rep(FALSE, n)
    for(i in 1L:length(x)) {
      split <- splitme(x[i])
      if(length(split) > 2L) {
        if(resplit(split[1L:2L]) %in% "f(")
          issm[i] <- TRUE
      }
      if(length(split) > 3L) {
        if(resplit(split[1L:3L]) %in% "sx(")
          issm[i] <- TRUE
      }
    }
  } else issm <- FALSE

  return(issm)
}