with R. a <- 0:5 col <- c("red", "red", "blue", "blue", "red", "red") svg("fstest.svg", width=5, height=4) plot(a, dhyper(a, m=4, n=4, k=5), type="h", ylab="P(H_a=a)"...
