eset_test <- new("ExpressionSet", exprs=matrix(rnorm(400,8,2),100,4))
pData(eset_test) <- data.frame("informativeFactor"=c("A", "A", "B", "B"), "uninformativeFactor"=c("X","X","X","X"))
eset_test2 <- removeUninformativeFactors(eset_test)
pData(eset_test)
pData(eset_test2)
Run the code above in your browser using DataLab