path: root/scripts/whole_experimental_table.R

library(tidyverse)

data <- read_csv("../csv/data_per_assay_per_year_per_outcome.csv")

tbl <- data %>%
    rowid_to_column() %>%
    pivot_wider(
                id_cols = rowid,
                names_from = name,
                values_from = data,
    )