Updated documentation

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)

R/greedyMix.R

@@ -1686,30 +1686,6 @@ greedyMix <- function(
 
 # 	%------------------------------------------------------
 
-
-# 	function count = rivinSisaltamienMjonojenLkm(line)
-# 	% Palauttaa line:n sis<69>lt<6C>mien mjonojen lukum<75><6D>r<EFBFBD>n.
-# 	% Mjonojen v<>liss?t<>ytyy olla v<>lily<6C>nti.
-# 	count = 0;
-# 	pit = length(line);
-# 	tila = 0;    %0, jos odotetaan v<>lily<6C>ntej? 1 jos odotetaan muita merkkej?
-# 	for i=1:pit
-# 		merkki = line(i);
-# 		if (isspace(merkki) & tila==0)
-# 			%Ei tehd?mit<69><74>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<69><74>n
-# 		end
-# 	end
-
-
-# 	%-------------------------------------------------------
-
 # 	function nimi = lueNimi(line)
 # 	%Palauttaa line:n alusta sen osan, joka on ennen pilkkua.
 # 	n = 1;

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