i am using following command line and use affy package.
library(makecdfenv)
library(affyio)
library(affy)
ovarian<-make.cdf.env("HGU133A_Hs_ENSG.cdf")
data<-ReadAffy(cdfname='ovarian')
data
eset<-rma(data)
exprSet <- exprs(eset)
pvalue.exprSet = apply(exprSet, 1, function(x){t.test(x[1:4], x[5:45]) $p.value})
Combine.exprset.pvalue = cbind(exprSet,pvalue.exprSet)
write.table(Combine.exprset.pvalue,"NormalizedValues.xls",sep="\t",col.names = NA)

If you're working in R, are you using limma? and if so, why didn't you filter based on adjusted-p-value (the BH correction will have been done for you) instead of p-value.
Hi au.rinki.bio,
Please chose a more descriptive title of your threads, "microarray data analysis" doesn't say a lot. "Multiple testing correction" is something you should have included, for example.
In addition, please give feedback on your previous question(s):
If an answer was helpful you should upvote it, if the answer resolved your question you should mark it as accepted.
Cheers,
Wouter
thank you. i would follow your sugestion.