The distribution of cell sizes by capture time.
ggplot(samples.l$S %>% left_join(cell.map), aes(x=S, color=capture, fill=capture)) + geom_histogram(position='dodge') + geom_rug()
The posterior mean and standard deviation of the cell sizes coloured by capture group.
S.l <- samples.l$S %>% group_by(c) %>% summarise(S.mean=mean(S), S.sd=sd(S)) ggplot(S.l %>% left_join(cell.map), aes(x=S.mean, y=S.sd, color=capture)) + geom_point()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.