data-raw/coins/coins.R

coins <- read.csv(here::here("data-raw/coins/coins"), sep = "\t", header = F)
library(tidyverse)
coins <- coins %>%
  select(matches("[1-3]")) %>%
  rename(id = V1,
         heads = V2,
         tails = V3)
save(coins, file = "data/coins.rda")
speegled/bayeta documentation built on May 12, 2024, 2:09 p.m.