26 lines
733 B
R
26 lines
733 B
R
findOutRowsFromInd <- function(popnames, rows, ploidisuus = NULL) {
|
|
if (is.null(ploidisuus)) {
|
|
ploidisuus <- questdlg(
|
|
quest = "Specify the type of individuals in the data",
|
|
dlgtitle = "Individual type?",
|
|
btn = c("Haploid", "Diploid", "Tetraploid"),
|
|
defbtn = "Diploid"
|
|
)
|
|
}
|
|
|
|
rowsFromInd <- switch(ploidisuus,
|
|
"Haploid" = 1,
|
|
"Diploid" = 2,
|
|
"Tetraploid" = 4
|
|
)
|
|
|
|
popnames2 <- popnames * NA
|
|
if (!is.null(popnames)) {
|
|
for (i in seq_len(size(rows, 1))) {
|
|
popnames2[i, 1] <- popnames[i, 1]
|
|
rivi <- rows[i, 1]:rows[i, 2]
|
|
popnames2[i, 2] <- rivi[rowsFromInd] / rowsFromInd
|
|
}
|
|
}
|
|
return(list(popnames2 = popnames2, rowsFromInd = rowsFromInd))
|
|
}
|