# can anybody help with the below? I am getting an unused argument error for n=1 and I am perplexed. I m a new r user and would welcome some help. many thanks

a2 <- 0.05

b2 <- 0.0001

y2 <- 0.02

weeks <- 104

Rt_sto <- 30

Ft_sto <- 40

```
```{r}
for (t in 1:(weeks-1)) {
set.seed(60854)
EQ1 <- pbinom(n = 1, size = Rt_sto[t], prob = a2)
EQ2 <- pbinom(n = 1, size = Rt_sto*Ft_sto, prob = b2)
EQ3 <- pbinom(n = 1, size = Ft_sto, prob = y2)
```