Translated rivinSisaltamienMjonojenLkm

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<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 in seq_len(pit)) {
+		merkki <- line[i]
+		if (merkki == " " & tila == 0) {
+			# Ei tehd?mit<69><74>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<69><74>n
+		}
+	}
+	return(count)
+}

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