data-raw/strider.R

In knifecake/fafreqs: Common Frequency Databases for Forensic Markers

source("R/read.R")

ft_strider_austria <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Austria", "AUSTRIA")
usethis::use_data(ft_strider_austria, overwrite = TRUE)

ft_strider_belgium <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Belgium", "BELGIUM")
usethis::use_data(ft_strider_belgium, overwrite = TRUE)

ft_strider_bosnia_herzegowina <- read_strider("data-raw/strider-2015.xml",
                                              "STRidER - Bosnia and Herzegowina", "BOSNIA AND HERZEGOWINA")
usethis::use_data(ft_strider_bosnia_herzegowina, overwrite = TRUE)

ft_strider_czech_republic <- read_strider("data-raw/strider-2015.xml",
                                          "STRidER - Czech Republic", "CZECH REPUBLIC")
usethis::use_data(ft_strider_czech_republic, overwrite = TRUE)

ft_strider_denmark <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Denmark", "DENMARK")
usethis::use_data(ft_strider_denmark, overwrite = TRUE)

ft_strider_finland <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Finland", "FINLAND")
usethis::use_data(ft_strider_finland, overwrite = TRUE)

ft_strider_france <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - France", "FRANCE")
usethis::use_data(ft_strider_france, overwrite = TRUE)

ft_strider_germany <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Germany", "GERMANY")
usethis::use_data(ft_strider_germany, overwrite = TRUE)

ft_strider_greece <- read_strider("data-raw/strider-2015.xml",
                                  "STRidER - Greece", "GREECE")
usethis::use_data(ft_strider_greece, overwrite = TRUE)

ft_strider_hungary <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Hungary", "HUNGARY")
usethis::use_data(ft_strider_hungary, overwrite = TRUE)

ft_strider_ireland <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Ireland", "IRELAND")
usethis::use_data(ft_strider_ireland, overwrite = TRUE)

ft_strider_montenegro <- read_strider("data-raw/strider-2015.xml",
                                      "STRidER - Montenegro", "MONTENEGRO")
usethis::use_data(ft_strider_montenegro, overwrite = TRUE)

ft_strider_norway <- read_strider("data-raw/strider-2015.xml",
                                  "STRidER - Norway", "NORWAY")
usethis::use_data(ft_strider_norway, overwrite = TRUE)

ft_strider_poland <- read_strider("data-raw/strider-2015.xml",
                                  "STRidER - Poland", "POLAND")
usethis::use_data(ft_strider_poland, overwrite = TRUE)

ft_strider_slovakia <- read_strider("data-raw/strider-2015.xml",
                                    "STRidER - Slovakia", "SLOVAKIA")
usethis::use_data(ft_strider_slovakia, overwrite = TRUE)

ft_strider_slovenia <- read_strider("data-raw/strider-2015.xml",
                                    "STRidER - Slovenia", "SLOVENIA")
usethis::use_data(ft_strider_slovenia, overwrite = TRUE)

ft_strider_spain <- read_strider("data-raw/strider-2015.xml",
                                 "STRidER - Spain", "SPAIN")
usethis::use_data(ft_strider_spain, overwrite = TRUE)

ft_strider_sweden <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Sweden", "SWEDEN")
usethis::use_data(ft_strider_sweden, overwrite = TRUE)

ft_strider_switzerland <- read_strider("data-raw/strider-2015.xml",
                                   "STRidER - Switzerland", "SWITZERLAND")
usethis::use_data(ft_strider_switzerland, overwrite = TRUE)