R/formulaAm.R

In DiceEval: Construction and Evaluation of Metamodels

Defines functions formulaAm

Documented in formulaAm

formulaAm <- function(X,Y){
	
	X <- data.frame(X)
	p <- dim(X)[2]
	Y <- data.frame(Y)  

  F <- paste(names(Y),"~s(",names(X)[1],")",sep="")
  if (p>1){
    for (i in 2:p){
	F <- paste(F,"+s(",names(X)[i],")",sep="")
    }
  }
  return(as.formula(F))
}

Try the DiceEval package in your browser