m=50
y=sample(c(1,2),m,replace=TRUE)
datExprSignal=simulateModule(scale(y),100)
datExprNoise=simulateModule(rnorm(m),500)
datExpr=data.frame(datExprSignal,datExprNoise)
Result1=standardScreeningBinaryTrait(datExpr,y)
Result1[1:5,]
# use unequal variances and calculate q-values
Result2=standardScreeningBinaryTrait(datExpr,y, var.equal=FALSE,qValue=TRUE)
Result2[1:5,]
# calculate Kruskal Wallis test and q-values
Result3=standardScreeningBinaryTrait(datExpr,y,kruskalTest=TRUE,qValue=TRUE)
Result3[1:5,]
Run the code above in your browser using DataLab