Fixed delimiter for BAPS-formatted file

This commit is contained in:
Waldir Leoncio 2021-03-30 08:22:24 +02:00
parent ae58372205
commit f70277cd6a

View file

@ -68,7 +68,7 @@ greedyMix <- function(
# fprintf(1,'Data: %s\n',[pathname filename]);
# end
data <- read.delim(pathname_filename) # TODO: discover delimiter
data <- read.delim(pathname_filename, header = FALSE, sep = " ")
ninds <- testaaOnkoKunnollinenBapsData(data) # testing
if (ninds == 0) stop('Incorrect Data-file')