Skip to content

@cdesante /election3.r
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
election3
Ohio <- c()
California <- c()
Alabama <- c()
for ( i in 1:1000) {
Ohio[i] <- sample (c("Obama", "Romney"), 1)
California[i] <- sample(c(rep("Obama", 9), "Romney"))
Alabama[i] <- sample( c(rep("Obama", 1), rep("Romney", 9)), 1)
}
ftable(Ohio, California, Alabama)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.