From eb14afae8aaa6dd024dd20c6bfc661e61b7ff453 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 24 Jun 2020 12:11:54 +0200
Subject: [PATCH] Translated rivinSisaltamienMjonojenLkm

---
 R/rivinSisaltamienMjonojenLkm.R    | 25 +++++++++++++++++++++++++
 man/rivinSisaltamienMjonojenLkm.Rd | 17 +++++++++++++++++
 2 files changed, 42 insertions(+)
 create mode 100644 R/rivinSisaltamienMjonojenLkm.R
 create mode 100644 man/rivinSisaltamienMjonojenLkm.Rd

diff --git a/R/rivinSisaltamienMjonojenLkm.R b/R/rivinSisaltamienMjonojenLkm.R
new file mode 100644
index 0000000..2e8888f
--- /dev/null
+++ b/R/rivinSisaltamienMjonojenLkm.R
@@ -0,0 +1,25 @@
+#' @title Number of M queues
+#' @param line line number
+#' @return count
+#' @export
+rivinSisaltamienMjonojenLkm <- function(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 in seq_len(pit)) {
+		merkki <- line[i]
+		if (merkki == " " & tila == 0) {
+			# Ei tehd?mit��n.
+		} else if (merkki == " " & tila == 1) {
+			tila <- 0
+		} else if (merkki != " " & tila == 0) {
+			tila <- 1
+			count <- count + 1
+		} else if (merkki != " " & tila == 1) {
+			# %Ei tehd?mit��n
+		}
+	}
+	return(count)
+}
\ No newline at end of file
diff --git a/man/rivinSisaltamienMjonojenLkm.Rd b/man/rivinSisaltamienMjonojenLkm.Rd
new file mode 100644
index 0000000..bb7a547
--- /dev/null
+++ b/man/rivinSisaltamienMjonojenLkm.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/rivinSisaltamienMjonojenLkm.R
+\name{rivinSisaltamienMjonojenLkm}
+\alias{rivinSisaltamienMjonojenLkm}
+\title{Number of M queues}
+\usage{
+rivinSisaltamienMjonojenLkm(line)
+}
+\arguments{
+\item{line}{line number}
+}
+\value{
+count
+}
+\description{
+Number of M queues
+}