## -----------------------------------------------------------------------------
#| label: setup
library(vcd2df)


## -----------------------------------------------------------------------------
#| label: download
f_name <- tempfile()
vcd <- 'https://github.com/vcd2df/vcd_ex/raw/refs/heads/main/nerv.vcd'
download.file(url = vcd, destfile = f_name)


## -----------------------------------------------------------------------------
#| label: read
df <- vcd2df(f_name)


## -----------------------------------------------------------------------------
#| label: clean
unlink(f_name)


## -----------------------------------------------------------------------------
#| label: rownames
rownames(df)[1:5]


## -----------------------------------------------------------------------------
#| label: colnames
colnames(df)[1:5]