Perform a Fisher Exact Probability Test in R using the data contained in Example 7.4: Snake Behavior in the textbook. The input data should looks as follows:

R1 = c(6, 1) R2 = c(1, 6)

Compare your answer computed in R to the final answer from the example.

Example 7.4 The Fisher Exact Probability Test: Snake Behavior An experiment was conducted to determine if neonatal garter snakes (Thamnophis sirtalis) were more likely to exhibit an avoidance response to a threatening stimulus presented from above or from "snake-eye level." One sample of seven snakes was presented one at a time with an overhead stimulus, and another sample of seven was presented with the same stimulus presented later- ally. The investigator recorded whether the snakes responded by attempting to "escape" or failed to respond. (Data from R. Hampton and J. Gillingham.)