Translated lueNimi

NAMESPACE

@@ -14,6 +14,7 @@ export(isfield)
 export(laskeMuutokset4)
 export(learn_simple_partition)
 export(lueGenePopData)
+export(lueNimi)
 export(noIndex)
 export(ownNum2Str)
 export(poistaLiianPienet)

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

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