inst/doc/comparing_distributions.R

In babar: Bayesian Bacterial Growth Curve Analysis in R

## ------------------------------------------------------------------------
library(babar)

## ------------------------------------------------------------------------
n.samples <- 500

## ------------------------------------------------------------------------
sd.1 <- 2
mean.1 <- 0

sd.2 <- 2
mean.2 <- 1

## ------------------------------------------------------------------------
data.a <- rnorm(n.samples, mean.1, sd.1)
data.b <- rnorm(n.samples, mean.1, sd.1)
data.c <- rnorm(n.samples, mean.2, sd.2)

## ------------------------------------------------------------------------
par(mfrow=c(1, 3))
hist(data.a, col='blue')
hist(data.b, col='green')
hist(data.c, col='red')

## ------------------------------------------------------------------------
compareDistributions(data.a, data.b)

## ------------------------------------------------------------------------
compareDistributions(data.a, data.c)