> library(MASS)
> data <- matrix(c(720940,
+                  356628,
+                  369228,
+                  353511,
+                  761255,
+                  389704,
+                  374454,
+                  370521),
+                nrow = 2, byrow = T
+ )
>
> rownames(data) <- c("F", "D")
> colnames(data) <- c("BOTTOM", "JUNGLE", "MIDDLE", "TOP")
> data
  BOTTOM JUNGLE MIDDLE    TOP
F 720940 356628 369228 353511
D 761255 389704 374454 370521
> chisq.test(data)

	Pearson's Chi-squared test

data:  data
X-squared = 525.1064, df = 3, p-value < 2.2e-16