Hello,
Does someone know how is it possible to get this code caption numbering on Quarto?
---
title: "Exercise"
format: html
---
```{r}
p_grid <- seq( from=0 , to=1 , length.out=1000 )
prob_p <- rep( 1, 1000 )
prob_data <- dbinom( 6 , size=9, prob=p_grid )
posterior <- prob_data * prob_p
posterior <- posterior / sum(posterior)
```
```{r}
head(posterior)
```
will give
[1] 0.000000e+00 8.433659e-19 5.381333e-17 6.111249e-16 3.423368e-15 1.301978e-14