selection.qmd

---
engine: julia
julia:
  exeflags: ["--project", "--threads=auto"]
---

```{julia}
#| code-fold: true
using Arrow
using CairoMakie
using DataFrames
```

```{julia}
tbl = Arrow.Table("./data/fggk21.arrow")
```

```{julia}
df = DataFrame(tbl)
describe(df)
```

## Raw score density

```{julia}
#| eval: false
let
  fdensity = Figure(; resolution=(1000, 500))
  axs = Axis(fdensity[1, 1])
  tdf = filter(:Test => ==(test), df)
  colors = Makie.cgrad(:PuOr_4, 2; categorical=true, alpha=0.6)
  if by_sex
    density!(
      axs,
      filter(:Sex => ==("female"), tdf).score;
      color=colors[1],
      label="Girls",
    )
    density!(
      axs,
      filter(:Sex => ==("male"), tdf).score;
      color=colors[2],
      label="Boys",
    )
    axislegend(axs; position=:lt)
  else
    density!(axs, tdf.score)
  end
  fdensity
end
```