37 lines
No EOL
949 B
R
37 lines
No EOL
949 B
R
#' @title Initialize Pop Names
|
||
#' @param nameFile nameFile
|
||
#' @param indexFile indexFile
|
||
#' @export
|
||
initPopNames <- function(nameFile, indexFile) {
|
||
# Palauttaa tyhj<68>n, mik<69>li nimitiedosto ja indeksitiedosto
|
||
# eiv<69>t olleet yht?pitki?
|
||
|
||
indices <- load(indexFile)
|
||
|
||
fid = load(nameFile)
|
||
if (fid == -1) {
|
||
# File didn't exist
|
||
stop('Loading of the population names was unsuccessful')
|
||
}
|
||
line <- readLines(fid)[1]
|
||
counter <- 1
|
||
names <- vector()
|
||
while ((line != -1) & (line != "")) {
|
||
names[counter] <- line
|
||
line <- readLines(fid)[counter]
|
||
counter <- counter + 1
|
||
}
|
||
|
||
if (length(names) != length(indices)) {
|
||
cat('The number of population names must be equal to the number of')
|
||
cat('entries in the file specifying indices of the first individuals')
|
||
cat('of each population.')
|
||
}
|
||
|
||
popnames <- cell(length(names), 2)
|
||
for (i in 1:length(names)) {
|
||
popnames[i, 1] <- names[i]
|
||
popnames[i, 2] <- indices[i]
|
||
}
|
||
return(popnames)
|
||
} |