move the raw data from data to inst/extdata

R/eo1.R

@@ -323,7 +323,7 @@ readEX1x1 <- function(infile)
 }
 
 # read all information from 'GENESIS-Tabelle: 12613-02-02-4'
-# Statistische Ämter des Bundes und der Länder, Deutschland, 2019
+# Statistische ?mter des Bundes und der L?nder, Deutschland, 2019
 readRegDeath <- function(infile)
 {
   rdft0 <- readLines(infile, n=7)
@@ -353,7 +353,7 @@ readRegDeath <- function(infile)
 
 
 # read all information from 'GENESIS-Tabelle: 12613-02-02-4'
-# Statistische Ämter des Bundes und der Länder, Deutschland, 2019
+# Statistische ?mter des Bundes und der L?nder, Deutschland, 2019
 readRegExp <- function(infile)
 {
   (rexpt0 <- readLines(infile, n=9))
@@ -393,7 +393,7 @@ readRegExp <- function(infile)
 # read all information from the file fltper_1x1
 # example data source: Human Mortality Database https://www.mortality.org/
 # period life tables 1x1 female
-infile <- file.path("..","data","DEUTNP.fltper_1x1.txt")
+infile <- file.path("..","inst","extdata","DEUTNP.fltper_1x1.txt")
 
 o1 <- readLT1x1(infile)
 
@@ -430,7 +430,7 @@ showMethods("length")
 # read all information from the file Exposures_1x1
 # example data source: Human Mortality Database https://www.mortality.org/
 # period life tables 1x1 female
-infile2 <- file.path("..","data","DEUTNP.Exposures_1x1.txt")
+infile2 <- file.path("..","inst","extdata","DEUTNP.Exposures_1x1.txt")
 
 e1 <- readEX1x1(infile2)
 
@@ -463,10 +463,10 @@ showClass("EX1")
 showMethods("length")
 
 # read all information from 'GENESIS-Tabelle: 12613-02-02-4'
-# Statistische Ämter des Bundes und der Länder, Deutschland, 2019
-# Gestorbene nach Geschlecht, Nationalität und Altersgruppen -
-# Jahressumme - regionale Tiefe: Kreise und krfr. Städte
-infile3 <- file.path("..","data","12613-02-02-4.csv")
+# Statistische ?mter des Bundes und der L?nder, Deutschland, 2019
+# Gestorbene nach Geschlecht, Nationalit?t und Altersgruppen -
+# Jahressumme - regionale Tiefe: Kreise und krfr. St?dte
+infile3 <- file.path("..","inst","extdata","12613-02-02-4.csv")
 
 d1 <- readRegDeath(infile3)
 
@@ -510,9 +510,9 @@ showMethods("length")
 
 
 # read all information from 'GENESIS-Tabelle: 12411-03-03-4'
-# Statistische Ämter des Bundes und der Länder, Deutschland, 2019
-# Bevölkerung nach Geschlecht, Nationalität und Altersgruppen
-infile4 <- file.path("..","data","12411-03-03-4.csv")
+# Statistische ?mter des Bundes und der L?nder, Deutschland, 2019
+# Bev?lkerung nach Geschlecht, Nationalit?t und Altersgruppen
+infile4 <- file.path("..","inst","extdata","12411-03-03-4.csv")
 
 r1 <- readRegExp(infile4)