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@r-project.org 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
pbu...@pburns.seanet.com
twitter: @portfolioprobe
http://www.portfolioprobe.com/blog
http://www.burns-stat.com
(home of 'Some hints for the R beginner'
and 'The R Inferno')
______________________________________________
R-help@r-project.org 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.
