use the package as a package, need to install first

NAMESPACE

@@ -1 +1,3 @@
 exportPattern("^[[:alpha:]]+")
+
+import("data.table")

tests/Simple1.R

@@ -1,6 +1,8 @@
 # Rainer Walke, MPIDR Rostock
 
-source(file.path("..","R","eo1.R"))
+library(data.table)
+library(eoR)
+
 
 ####
 
@@ -9,7 +11,7 @@ source(file.path("..","R","eo1.R"))
 # 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("..","inst","extdata","DEUTNP.fltper_1x1.txt")
+infile <- file.path(system.file(package="eoR"), "extdata", "DEUTNP.fltper_1x1.txt")
 
 o1 <- readLT1x1(infile)
 
@@ -46,7 +48,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("..","inst","extdata","DEUTNP.Exposures_1x1.txt")
+infile2 <- file.path(system.file(package="eoR"), "extdata", "DEUTNP.Exposures_1x1.txt")
 
 e1 <- readEX1x1(infile2)
 
@@ -79,10 +81,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("..","inst","extdata","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(system.file(package="eoR"), "extdata", "12613-02-02-4.csv")
 
 d1 <- readRegDeath(infile3)
 
@@ -126,9 +128,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("..","inst","extdata","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(system.file(package="eoR"), "extdata", "12411-03-03-4.csv")
 
 r1 <- readRegExp(infile4)