# if statement problem

6 messages
Open this post in threaded view
|

## if statement problem

 This post was updated on . CONTENTS DELETED The author has deleted this message.
Open this post in threaded view
|

## Re: if statement problem

 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)            Hello, Try if(any(x[i,] <5))Merry Christmas Rui Barradas
Open this post in threaded view
|

## Re: if statement problem

 In reply to this post by reena This is almost Circle 8.1.7 of 'The R Inferno': http://www.burns-stat.com/pages/Tutor/R_inferno.pdfbut 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. > > ______________________________________________ > [hidden email] mailing list > https://stat.ethz.ch/mailman/listinfo/r-help> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html> and provide commented, minimal, self-contained, reproducible code. > -- Patrick Burns [hidden email] twitter: @portfolioprobe http://www.portfolioprobe.com/bloghttp://www.burns-stat.com(home of 'Some hints for the R beginner' and 'The R Inferno') ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code.
Open this post in threaded view
|

## Re: if statement problem

 This post was updated on . CONTENTS DELETED The author has deleted this message.