Reformatting BAPS input
This commit is contained in:
parent
2bb94b815c
commit
ef540baf7e
1 changed files with 1 additions and 0 deletions
|
|
@ -69,6 +69,7 @@ greedyMix <- function(
|
||||||
# end
|
# end
|
||||||
|
|
||||||
data <- read.delim(pathname_filename, header = FALSE, sep = " ")
|
data <- read.delim(pathname_filename, header = FALSE, sep = " ")
|
||||||
|
data <- as.matrix(data)
|
||||||
ninds <- testaaOnkoKunnollinenBapsData(data) # testing
|
ninds <- testaaOnkoKunnollinenBapsData(data) # testing
|
||||||
if (ninds == 0) stop('Incorrect Data-file')
|
if (ninds == 0) stop('Incorrect Data-file')
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue