a + b)



In [1]:

    
require(ggplot2)
require(reshape)









    



Loading required package: ggplot2
Loading required package: reshape



In [2]:

    
n <- 15
xs <- 0:n
ps <- seq(0.1, 0.9, 0.1)



In [3]:

    
df <- data.frame(x=xs, sapply(ps, dbinom, x=xs, size=n))
df <- melt(df, id.vars='x', variable_name='distr')



In [4]:

    
ggplot(df, aes(x, value)) + geom_point() + facet_grid(distr ~ .)

c)



In [5]:

    
ns <- c(10, 20, 50, 200)
p <- 0.05



In [6]:

    
df <- data.frame(x=0:200, sapply(ns, dbinom, x=0:200, prob=p))
df <- melt(df, id.vars='x', variable_name='distr')



In [7]:

    
ggplot(df, aes(x, value)) + geom_point() + facet_grid(distr ~ .)



In [ ]: