From 0e7e2086c6b81bdf3cb1f824acec473f336b6e74 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 24 Jun 2020 12:12:10 +0200
Subject: [PATCH] Updated documentation

---
 NAMESPACE        |  3 +++
 R/greedyMix.R    | 24 ------------------------
 man/testaaPop.Rd | 17 +++++++++++++++++
 3 files changed, 20 insertions(+), 24 deletions(-)
 create mode 100644 man/testaaPop.Rd

diff --git a/NAMESPACE b/NAMESPACE
index c9f3172..d478d16 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -21,6 +21,7 @@ export(questdlg)
 export(rand)
 export(randdir)
 export(repmat)
+export(rivinSisaltamienMjonojenLkm)
 export(simulateAllFreqs)
 export(simulateIndividuals)
 export(simuloiAlleeli)
@@ -28,8 +29,10 @@ export(size)
 export(strcmp)
 export(suoritaMuutos)
 export(testaaOnkoKunnollinenBapsData)
+export(testaaPop)
 export(times)
 export(uigetfile)
 export(uiputfile)
 importFrom(methods,is)
 importFrom(stats,runif)
+importFrom(utils,read.delim)
diff --git a/R/greedyMix.R b/R/greedyMix.R
index 4445e4b..bf13b4f 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -1686,30 +1686,6 @@ greedyMix <- function(
 
 # 	%------------------------------------------------------
 
-
-# 	function count = rivinSisaltamienMjonojenLkm(line)
-# 	% Palauttaa line:n sis�lt�mien mjonojen lukum��r�n.
-# 	% Mjonojen v�liss?t�ytyy olla v�lily�nti.
-# 	count = 0;
-# 	pit = length(line);
-# 	tila = 0;    %0, jos odotetaan v�lily�ntej? 1 jos odotetaan muita merkkej?
-# 	for i=1:pit
-# 		merkki = line(i);
-# 		if (isspace(merkki) & tila==0)
-# 			%Ei tehd?mit��n.
-# 		elseif (isspace(merkki) & tila==1)
-# 			tila = 0;
-# 		elseif (~isspace(merkki) & tila==0)
-# 			tila = 1;
-# 			count = count+1;
-# 		elseif (~isspace(merkki) & tila==1)
-# 			%Ei tehd?mit��n
-# 		end
-# 	end
-
-
-# 	%-------------------------------------------------------
-
 # 	function nimi = lueNimi(line)
 # 	%Palauttaa line:n alusta sen osan, joka on ennen pilkkua.
 # 	n = 1;
diff --git a/man/testaaPop.Rd b/man/testaaPop.Rd
new file mode 100644
index 0000000..873dd6a
--- /dev/null
+++ b/man/testaaPop.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/testaaPop.R
+\name{testaaPop}
+\alias{testaaPop}
+\title{Test population}
+\usage{
+testaaPop(rivi)
+}
+\arguments{
+\item{rivi}{Line}
+}
+\value{
+pal
+}
+\description{
+Test a line in the population
+}