17 lines
487 B
R
17 lines
487 B
R
|
#'@title Seuraavat kolme funktiota liittyvat alkupartition muodostamiseen.
|
||
|
|
|
||
|
|
admixture_initialization <- function (data_matrix, nclusters, Z) {
|
||
|
|
size_data <- size(data_matrix)
|
||
|
|
nloci <- size_data[2] - 1
|
||
|
|
n <- max(data_matrix[, end])
|
||
|
|
T <- cluster_own(Z, nclusters)
|
||
|
|
initial_partition <- zeros(size_data[1], 1)
|
||
|
|
for (i in 1:n) {
|
||
|
|
kori <- T[i]
|
||
|
|
here <- find(data_matrix[,end] == i)
|
||
|
|
for (j in 1:length(here)) {
|
||
|
|
initial_partition[here[j], 1] <- kori
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(initial_partition)
|
||
|
|
}
|