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.
