R build form from paras

build_formula.R

buildFormula <- function(dataset, terms_array) {
  for (i in 1:length(terms_array))
    assign(paste("fact", i, sep=""), L(dataset, terms_array[i]))
  
  factors = array()
  for (i in 1:length(terms_array))
    factors[i] <- paste("fact", i, sep="")
  
  form = as.formula(paste("dataset~", paste(factors, collapse="+")))
  return(form)
}

#example call
form <- buildFormula(strain, c(1,6,12))
## Fit 
fit <- dynrq(form, tau = tau)