#! /usr/bin/env Rscript
# Time-stamp: <2019-04-25 10:52:09 christophe@pallier.org>

require(readr)

dat <- read_delim('Ballot_2021_Valemo_Age_1286.csv', delim='\t')
saveRDS(dat, file='Ballot_2021_Valemo_Age_1286.rds')

cols(
  .default = col_character(),
  `SF_Mean_All groups` = col_number(),
  `SF_Mean_18-25 years` = col_number(),
  `SF_Mean_26-39 years` = col_number(),
  `SF_Mean_40-59 years` = col_number(),
  `SF_Mean_60 years and more` = col_number(),
  `SF_PC_PVAL_18-25 years/26-39 years` = col_double(),
  `SF_PC_PVAL_26-39 years/40-59 years` = col_double(),
  `IMA_Mean_All groups` = col_number(),
  `IMA_Mean_18-25 years` = col_number(),
  `IMA_Mean_26-39 years` = col_number(),
  `IMA_Mean_40-59 years` = col_number(),
  `IMA_Mean_60 years and more` = col_number(),
  `AR_Mean_All groups` = col_number(),
  `AR_SD_All groups` = col_number(),
  `AR_Mean_18-25 years` = col_number(),
  `AR_Mean_26-39 years` = col_number(),
  `AR_Mean_40-59 years` = col_number(),
  `AR_Mean_60 years and more` = col_number()
)