[R] if statement problem

[reena]

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.