R/drop.reponse.R

In DiceKriging: Kriging Methods for Computer Experiments

Defines functions drop.response

Documented in drop.response

drop.response <- function(formula, data) {
  tt <- terms(formula, data=data)
	if (length(attr(tt, "term.labels"))!=0) {
		formula <- reformulate(attr(tt, "term.labels"),
                           intercept = attr(tt, "intercept"))
	} else formula <- ~1
	return(formula)
}

Try the DiceKriging package in your browser