require(beadarrayExampleData)
data(exampleSummaryData)
exampleSummaryDatalog2 <- channel(exampleSummaryData, "G")[1:40,]
exampleSummaryDataNorm <- normaliseIllumina(exampleSummaryDatalog2,
method = "quantile", transform = "none")[1:40,]
aaa<-na.omit(data.frame(I(rownames(exprs(exampleSummaryDataNorm))),exprs(exampleSummaryDataNorm)))[1:40,]
ProbeID <- aaa[,1][1:40]
eSet <- na.omit(exprs(exampleSummaryDataNorm))[1:40,]
stddev <- na.omit(se.exprs(exampleSummaryDataNorm))[1:40,]
nSet <- na.omit(attributes(exampleSummaryDataNorm)$assayData$nObservations)[1:40,]
seSet<-stddev/sqrt(nSet)
iccResults<-iccFun(eSet,seSet,nSet,ProbeID =ProbeID ,iccQuant=1,
diffIcc=FALSE,keepData=TRUE) informProbeNames<- subset(iccResults$icc, iccResults$icc[,2]>=0.5)[,1]
filterDataNorm<-exampleSummaryDataNorm[informProbeNames,]
Run the code above in your browser using DataLab