diff --git a/R/GENESISClasses.R b/R/GENESISClasses.R index 5edf78e..13b60c5 100644 --- a/R/GENESISClasses.R +++ b/R/GENESISClasses.R @@ -403,7 +403,7 @@ readRegDeath <- function(infile) { bb <- scan(infile, what=character(), blank.lines.skip = FALSE, encoding="ANSI", sep="\n") - h2 <- grep(";Insgesamt;m\u00e4nnlich",bb) + h2 <- grep(";Insgesamt;m\\xe4nnlich",bb) f1 <- grep("__________",bb) f2 <- length(bb) @@ -454,7 +454,7 @@ readRegExp <- function(infile) { bb <- scan(infile, what=character(), blank.lines.skip = FALSE, encoding="ANSI", sep="\n") - h2 <- grep(";Insgesamt;m\u00e4nnlich",bb) + h2 <- grep(";Insgesamt;m\\xe4nnlich",bb) f1 <- grep("__________",bb) f2 <- length(bb)