diff --git a/NAMESPACE b/NAMESPACE
index f6edaf8..ef1906f 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -14,6 +14,7 @@ export(isfield)
 export(laskeMuutokset4)
 export(learn_simple_partition)
 export(lueGenePopData)
+export(lueNimi)
 export(noIndex)
 export(ownNum2Str)
 export(poistaLiianPienet)
diff --git a/R/lueNimi.R b/R/lueNimi.R
new file mode 100644
index 0000000..a5bbb3f
--- /dev/null
+++ b/R/lueNimi.R
@@ -0,0 +1,17 @@
+#' @title Read the Name
+#' @description Reads the line name
+#' @param line line
+#' @return nimi
+#' @export
+lueNimi <- function(line) {
+	# Palauttaa line:n alusta sen osan, joka on ennen pilkkua.
+	n <- 1
+	merkki <- line[n]
+	nimi <- ''
+	while (merkki != ',') {
+		nimi <- c(nimi, merkki)
+		n <- n + 1
+		merkki <- line[n]
+	}
+	return(nimi)
+}
\ No newline at end of file
diff --git a/man/lueNimi.Rd b/man/lueNimi.Rd
new file mode 100644
index 0000000..74cd665
--- /dev/null
+++ b/man/lueNimi.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/lueNimi.R
+\name{lueNimi}
+\alias{lueNimi}
+\title{Read the Name}
+\usage{
+lueNimi(line)
+}
+\arguments{
+\item{line}{line}
+}
+\value{
+nimi
+}
+\description{
+Reads the line name
+}