Translated testaaPop

R/greedyMix.R

@@ -1546,30 +1546,6 @@ greedyMix <- function(
 
 # 	%-------------------------------------------------------
 
-# 	function pal = testaaPop(rivi)
-# 	% pal=1, mik<69>li rivi alkaa jollain seuraavista
-# 	% kirjainyhdistelmist? Pop, pop, POP. Kaikissa muissa
-# 	% tapauksissa pal=0.
-
-# 	if length(rivi)<3
-# 		pal = 0;
-# 		return
-# 	end
-# 	if (all(rivi(1:3)=='Pop') | ...
-# 		all(rivi(1:3)=='pop') | ...
-# 		all(rivi(1:3)=='POP'))
-# 		pal = 1;
-# 		return
-# 	else
-# 		pal = 0;
-# 		return
-# 	end
-
-
-
-# 	%----------------------------------------------------------------------------
-
-
 # 	function dist2 = laskeOsaDist(inds2, dist, ninds)
 # 	% Muodostaa dist vektorista osavektorin, joka sis<69>lt<6C><74> yksil<69>iden inds2
 # 	% v<>liset et<65>isyydet. ninds=kaikkien yksil<69>iden lukum<75><6D>r?

R/testaaGenePopData.R

@@ -17,7 +17,7 @@ testaaGenePopData <- function(tiedostonNimi) {
 	if (line1 == -1 | line2 == -1 | line3 == -1) {
 		stop('Incorrect file format 1168')
 	}
-	if (testaaPop(line1) == 1 | testaaPop(line2) == 1) { # TODO: translate function
+	if (testaaPop(line1) == 1 | testaaPop(line2) == 1) {
 		stop('Incorrect file format 1172')
 	}
 	if (testaaPop(line3) == 1) {

R/testaaPop.R

@@ -0,0 +1,27 @@
+#' @title Test population
+#' @description Test a line in the population
+#' @param rivi Line
+#' @return pal
+#' @export
+testaaPop <- function(rivi) {
+	# pal=1, mik<69>li rivi alkaa jollain seuraavista
+	# kirjainyhdistelmist? Pop, pop, POP. Kaikissa muissa
+	# tapauksissa pal=0.
+
+	if (length(rivi) < 3) {
+		pal <- 0
+		return(pal)
+	}
+	if (
+		all(rivi[1:3] == 'Pop') |
+		all(rivi[1:3] == 'pop') |
+		all(rivi(1:3)=='POP')
+	) {
+		pal <- 1
+		return(pal)
+	} else {
+		pal <- 0;
+		return(pal)
+	}
+	return(pal)
+}