R/CreateFormula.R

In globalGSA: Global Gene-Set Analysis for Association Studies.

Defines functions CreateFormula

Documented in CreateFormula

CreateFormula <-
function(data, i, covariable=NULL) {
	if(length(covariable)==0) { fmla <- as.formula(data[,1] ~ data[,i]); return(fmla)
	} else {
		covname <- colnames(covariable)
		fmla <- as.formula(paste("data[,1] ~ data[,i] + ", paste(covname, collapse= "+")))
	}	
	return(fmla)
}

Try the globalGSA package in your browser