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))
}