From 036ec00bbdbf929d40f6261a3a5b8d70870ab8d0 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Fri, 13 Sep 2024 13:39:24 +0200 Subject: [PATCH] Fixed `addAlleles()` --- R/addAlleles.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/addAlleles.R b/R/addAlleles.R index 9854027..451db4e 100644 --- a/R/addAlleles.R +++ b/R/addAlleles.R @@ -11,7 +11,7 @@ addAlleles <- function(data, ind, line, divider) { # line. Jos data on 3 digit formaatissa on divider=1000. # Jos data on 2 digit formaatissa on divider=100. - nloci <- size(data, 2) # added 1 from original code + nloci <- size(data, 2) - 1L if (size(data, 1) < (2 * ind)) { data <- rbind(data, zeros(100, nloci)) # subtracted 1 from original code } @@ -22,8 +22,7 @@ addAlleles <- function(data, ind, line, divider) { k <- k + 1 merkki <- substring(line, k, k) } - line <- substring(line, k + 1) - # clear k; clear merkki; + line <- trimws(substring(line, k + 1)) if (grepl(" ", line)) { alleeliTaulu <- as.numeric(strsplit(line, split = " ")[[1]])