if statement problem

Hello,

I want to do fisher test for the rows in data file which has value less than
5 otherwise chi square test .The p values from both test should be stored in
one resulted file. but there is some problem with bold if statement. I don't
know how
implement this line properly.


x = cbind(obs1,obs2,exp1,exp2)
a = matrix(c(0,0,0,0), ncol=2, byrow =TRUE)        #matrix with initialized
values

for (i in 1: length(x[,1]))
{
       *if((x[i,1] || x[i,2] || x[i,3] || x[i,4])<  5)*
              {
                  a[1,1]<- x[i,1];
                  a[1,2]<- x[i,2];
                  a[2,1]<- x[i,3];
                  a[2,2]<- x[i,4];
                  result<- fisher.test(a)
                  write.table(result[["p.value"]],file="results.txt",
sep="\n", append=TRUE, col.names=FALSE, row.names=FALSE);
                }

              else
             {
                 a[1,1]<- x[i,1];
                 a[1,2]<- x[i,2];
                 a[2,1]<- x[i,3];
                 a[2,2]<- x[i,4];
                 result<- chisq.test(a)
                 write.table(result[["p.value"]],file="results.txt",
sep="\n", append=TRUE, col.names=FALSE, row.names=FALSE);}
             }

Regards
R

--
View this message in context: http://r.789695.n4.nabble.com/if-statement-problem-tp4230026p4230026.html
Sent from the R help mailing list archive at Nabble.com.