---
title: "LRs"
author: "COST: Biofilm Regulatory Toolbox"
date: "8 Sept 2026"
output: word_document
---

Showing Repeatability of synethtic efficacy data against Legionella generated by an ISBR reactor at CBE.  

# Input Data
```{r}
LR = c(3.214,3.577,2.886)
```

# Plot the data
```{r}
plot(1:3,LR,xlab="Experiment")
```

# Get mean and repeatability SD
```{r}
mean(LR)
sd(LR)   # repeatability SD
```


# Assess true mean LR with t-tests
```{r}
# Two sided 95% CI
t.test(LR)

# One-sided 95% CIs
t.test(LR,alternative = "greater", mu=2)
t.test(LR,alternative = "greater", mu=3)
```

# Check t-test assumptions

For small samples, normality is required.  Check for outliers.

```{r}
par(mfrow=c(1,2))
hist(LR)
qqnorm(LR)
qqline(LR)
```