25 lines
658 B
R
25 lines
658 B
R
|
process_GenePop_data <- function(filename) {
|
||
|
|
# Pre-processing GenePop data
|
||
|
|
kunnossa <- testaaGenePopData(filename)
|
||
|
|
data_popnames <- lueGenePopData(filename)
|
||
|
|
data <- data_popnames$data
|
||
|
|
popnames <- data_popnames$popnames
|
||
|
|
|
||
|
|
# Processing GenePop data
|
||
|
|
c <- handleData(data, "genepop")
|
||
|
|
Z_dist <- newGetDistances(c$newData, c$rowsFromInd)
|
||
|
|
|
||
|
|
# Forming and returning pre-processed data
|
||
|
|
list(
|
||
|
|
"data" = c$newData,
|
||
|
|
"rowsFromInd" = c$rowsFromInd,
|
||
|
|
"alleleCodes" = c$alleleCodes,
|
||
|
|
"noalle" = c$noalle,
|
||
|
|
"adjprior" = c$adjprior,
|
||
|
|
"priorTerm" = c$priorTerm,
|
||
|
|
"dist" = Z_dist$dist,
|
||
|
|
"popnames" = popnames,
|
||
|
|
"Z" = Z_dist$Z
|
||
|
|
)
|
||
|
|
}
|