Compare PLINKs speeds after file creations

[richelbilderbeek]

No description provided.

[richelbilderbeek]

Function is called compare_assoc_qt_speed and is added :-)

  n_individuals <- 5
  n_phenotypes <- 3
  n_snps_per_phenotype <- 4
  assoc_qt_params <- create_demo_assoc_qt_params(
    n_individuals = n_individuals,
    traits = rep(
      list(create_random_trait(n_snps = n_snps_per_phenotype)),
      times = n_phenotypes
    )
  )
  assoc_qt_params$data$map_table$CHR <- 1 # nolint PLINK2 variable naming
  t <- compare_assoc_qt_speed(
    assoc_qt_params
  )
  t