Displaying 1 result from an estimated 1 matches for "out4a".
Did you mean:
out4
2013 Feb 01
2
Nested loop and output help
...t2, 1, 0)
a22 <- ifelse( X >= cut1 & Y >= cut2, 1, 0)
mat3 <-matrix(c(sum(a11),sum(a21), sum(a12),sum(a22)), nrow = 2)
mat4 <-matrix(c(sum(a11),sum(a22), sum(a12),sum(a21)), nrow = 2)
out3a <- mcnemar.test(mat3, correct=FALSE)
out3b <- mcnemar.test(mat3, correct=TRUE)
out4a <- chisq.test(mat4, correct = FALSE)
out4b <- chisq.test(mat4, correct = TRUE)
print(mat1)
print(mat2)
print(cut1)
print(cut2)
print(mat3)
print(out3a)
print(out3b)
print(mat4)
print(out4a)
print(out4b)
}
.
Other than the sample size of the random draws I would like to nest for...