Translated selvitaDigitFormat

NAMESPACE

@@ -24,6 +24,7 @@ export(rand)
 export(randdir)
 export(repmat)
 export(rivinSisaltamienMjonojenLkm)
+export(selvitaDigitFormat)
 export(simulateAllFreqs)
 export(simulateIndividuals)
 export(simuloiAlleeli)

R/selvitaDigitFormat.R

@@ -0,0 +1,31 @@
+#' @title Find out the Digit Format
+#' @param line the first line after the "pop" word from data in Genepop format. #  @note Function clarified based on the line format whether the alleles of the data are given using 2 or 3 numbers.
+#' @return
+#' @export
+selvitaDigitFormat <- function(line) {
+	# line on ensimm<6D>inen pop-sanan j<>lkeinen rivi
+	# Genepop-formaatissa olevasta datasta. funktio selvitt<74><74>
+	# rivin muodon perusteella, ovatko datan alleelit annettu
+	# 2 vai 3 numeron avulla.
+
+	n <- 1
+	merkki <- line[n]
+	while (merkki != ',') {
+		n <- n + 1
+		merkki <- line[n]
+	}
+
+	while (!any(merkki == '0123456789')) {
+		n <- n + 1
+		merkki <- line[n]
+	}
+	numeroja <- 0
+	while (any(merkki == '0123456789')) {
+		numeroja <- numeroja + 1
+		n <- n + 1
+		merkki <- line[n]
+	}
+
+	df <- numeroja / 2
+	return(df)
+}

man/selvitaDigitFormat.Rd

@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/selvitaDigitFormat.R
+\name{selvitaDigitFormat}
+\alias{selvitaDigitFormat}
+\title{Find out the Digit Format}
+\usage{
+selvitaDigitFormat(line)
+}
+\arguments{
+\item{line}{the first line after the "pop" word from data in Genepop format. #  @note Function clarified based on the line format whether the alleles of the data are given using 2 or 3 numbers.}
+}
+\value{
+
+}
+\description{
+Find out the Digit Format
+}