interactionPval(formula, data, quantitative =
is.quantitative(formula, data), model = "codominant")
~
operator and the terms corresponding to the setupSNP
data(SNPs)
datSNP<-setupSNP(SNPs,6:40,sep="")
ansCod<-interactionPval(log(protein)~sex,datSNP)
print(ansCod)
plot(ansCod)
Run the code above in your browser using DataLab