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)