# [R] if statement problem

Patrick Burns pburns at pburns.seanet.com
Sat Dec 24 11:37:15 CET 2011

```This is almost Circle 8.1.7 of
'The R Inferno':

http://www.burns-stat.com/pages/Tutor/R_inferno.pdf

but is making the mistake in the
other direction.

On 23/12/2011 22:40, reena wrote:
> 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.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> and provide commented, minimal, self-contained, reproducible code.
>

--
Patrick Burns
pburns at pburns.seanet.com