OP <- matrix(c(Support,Oppose),ncol=2)
OP
prop.test(OP,correct=FALSE)