R/parameter_names.R

In nlr: Nonlinear Regression Modelling using Robust Methods

Defines functions parameter.names

Documented in parameter.names

parameter.names<-
function(formula, data)
{
  pn <- names(attr(data, "parameters"))
  if(!length(pn))
    #pn <- database.attr("parameters")
  vars <- all.vars(formula)
  dnames <- names(data)
  ok <- !match(vars, dnames, 0.)
  if(length(pn))
    ok <- ok | match(vars, pn, 0.) > 0.
  vars[ok]
}

Try the nlr package in your browser